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CORVUS TRANSFORME VOTRE MICRO-ORDINATEUR 
EN UN VERITABLE SYSTEME DE GESTION 



CORVUS : Toute une gamme de systemes utilisant 

les disques a technologie WINCHESTER compatibles 

avec votre micro-ordinateur : APPLE II, LSI 11, TRS 80 modele II 

BUSS/ 100, DECVT/18, 

H/P 125, COMMODORE, ZENITH H/89. 

D'une capacite de stockage de 5, 10, 20, 40 

et 80 Mega-octets. 

CORVUS c'est aussi : L 

CONSTELLATION : Multiplexeur intelligent permettant 

de partager les ressources de la memoire de masse 

et des peripheriques entre plusieurs utilisateurs 

de micro-ordinateur. 

OMNINET: Reseau local de micro-ordinateurs. 

MIROIR : Sauvegarde sur systeme Video d'un< 

capacite de 100 Mega-octets. 

POUR MIEUX CONNAITRE CORVUS ET ' 

POSSIBILITY CONTACTEZ MICROLOG 
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** CORVUS SYSTEMS 

^ *. Prtiuntlalre 29.900 FBI 

5 MILLION BYTE 

MICRO WINCHESTER 

DISK SYSTEM 



CORVUS SYSTEMS 

* * MICRO LOGIE 

importateur exclusif pour la France 
143 ter, avenue J.-B.-Clement, 92100 BOULOGNE - Tel. 604 78 56 




Editorial 



II semble traditionnel , dans 1' editorial du premier numero d'une 
nouvelle revue, d'expliquer les raisons geniales qui ont declenche 
la creation de celle-ci. Sacrifions done a la tradition : nous 
voulions un journal que nous pourrions lire pour y trouver des 
tas d'idees et d'astuces pour nos materiels a nous; les revues 
francaises existantes, malgre leur qualite, sont le plus souvent 
trop generales pour satisfaire nos besoins specif iques; alors, 
comme le journal de nos reves n'existait pas, il ne nous restait 
plus qu'a le creer ! 

Bon, voila, la tradition est respectee. Passons a des choses 
plus serieuses : nous ne sommes pas peu fiers de ce premier nume- 
ro, et nous pensons qu'il repond a vos attentes . Mais loin de 
nous l'idee de glisser dans 1 'autosatisf action beate : nous savons 
bien que ce numero n'est pas parfait, que nous avons commis quel- 
ques (?) erreurs et que certains choix dans la presentation ou 
le style du journal vous paraitront contestables. 

Ce journal se veut critique, il est done logique que de meme 
nous attendions avec impatience vos critiques et vos remarques, 
qu'elles soient favorables (cela fait toujours plaisir) ou defa- 
vorables : dans les deux cas, nous les pensons utiles et done 
positives. Alors n'hesitez pas : prenez voire plume, encouragez 
vos amis a faire de meme, et faites-nous part de vos reactions. 

Nous voulons que ce journal soit le votre : vos commentaires 
nous aideront a l'ameliorer; les articles, les programmes et 
les "trues" que vous nous enverrez interesseront certainement 
les autres lecteurs; 1 ' echo que vou3 ferez a cette revue aupres 
de vos amis ou relations diverses lui permettra d'exister et 
de se developper. Bref, il faut vous mettre au travail, le numero 
deux est deja commence, ne perdez pas de temps... 

TRACE 
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TRACE N° 1 — Janvier 82 — 3 



Video Genie / y/tem 
genie I 

EG 3003 

SON - MINUSCULES - BASIC (R)* 



EG 3QQ3 



• Extension BASIC microsoft LEVEL II compatible TANDY. 



— 16 K RAM Utilisateur 

— 14 K ROM BASIC Microsoft 
LEVEL II 

— Micropr ocesseur Z 80 

— Modulateur video (Sortie UHF 625 
lignes) 

— Clavier QWERTY 

— Magnetophone S cassette integrg au 
boitier, pas de reglage de volume 

— Prise DIN pour deuxieme magne- 
tophone 

— Ecran 16 lignes 32 ou 64 caracteres 

— Graphismos 128 x 48 

— Cassettes et programmes compatibles 
avecTRS80* Level II 

— Alimentation integree 110 / 220 / 
240 V 50 Hz 

— Branchement direct sur televiseur ou 
moniteur video 

— Livre avec: cordons, 1 cassette 
demonstration. Moniteur en option 

— Bus compatible TRS 80* 

— Vu-mdtre, reglage niveau de lecture 

NOUVEAU: BASIC avec renumerotation - Instruction Hard Copy - Moniteur en language machine - Nouvelle 
routine clavier avec minuscules - Repetition curseur clignotant - Sortie son avec haut-parleur integre. 




EG 3008 



- Mimes caracteristiques + clavier 
numerique minuscules + software RS 
232 C + clavier fonction. Sortie video 
souloment 

* TRS 80 marque deposie 
• Tandy Radio Shack •. 




OPTIONS 

— Imprimante graphique incrimentale 
TONO HC 900, tracteur et friction 40 - 
48-80-96 136colonnes 

- Imprimante TONO HC 800, 80-132 
colonnes 1 20 CPS 

- Bolte d'expansion EG 3014 

— Moniteur professionnel ecran vert 
TONO CRT 120 G 

EG 3014 -16 (3,2) 

Boite d'expansion comprennant : 



controleur de disques Floppy, interface 
parallile Centronics, mimoire RAM 
16 K (32 K). En option, interface 
RS 232 C. Bus S 100. Fourni avec cSble 
de raccordement a EG 3003 ou 
EG 3008 

EG 3016 

Interface de raccordement pour 
imprimante type Centronics (TONO 
HC 800) avec cables. 



EG 3021 

Doubleur de densite 211 K par disque 

EG 400 

Lecteur de disques 5" 1/4 MPI 40 pistes 
100 K (211 K). 

EG 101 

Moniteur 12 pouces vert. 




GENERALE ELECTRONIQUE SERVICES 

76, AVENUE LEDRU ROLLIN, 75012 PARIS 
TEL. : 345-25-92 - TELEX: 600 767 F CCI MELUN ATT. GES 



Index des 
mots-cles 



La liste des mots-cles figurant ci-dessous est des- 
tinee a etre exploltee par le programme de gestion 
des articles, decrit aux pages 58 a 64 du present 
numero. Le format eat le sulvant : 



Nom abrege de 1 'article, numero de page : 1 
mots-cles. 



a 4 



En prenant 1 'habitude d'entrer cette liste a 
chaque numero de TRACE, vous constituerez ainsi une 
petite base de donnees vous permettant. de trouver 
plus efficacement et plus rapideraent 1 'article que 
vous cherchez. Bien entendu, cette liste est donnee 
a titre indicatlf , et vous pourrez toujours en mo- 
difier ou en completer le contenu, afln de 1 'adapter 
a vos besoins ; mais avant toute chose, vous devez 
vous imposer une certaine normalisation des mots- 
cles (en principe, lis sont limites a 12 caracteres) 
PROGRAMME par exemple, indiquera toujours qu'un 
listing de programme est donne dans 1 'article. 
Pour cela aussi, faites-nous part de vos idees ! 



PASCAL EN MINUSCULES, 10 : PASCAL, UCSD, PATCH, MODELE 1 

ANOMALIE INSTR, 10 : INSTR, VERSAFILE, NEWD0S80 

41 PISTES, 10 : DISQUETTE, PISTE, NEWD0S80 , LDOS 

SIGNAL SONORE, 11 : SON, RELAIS, ALA RME, MODELE 1 

ATTENTION AU VARPTR, 11 : VARPTR, BASIC 

GEL DE L'AFFICHAGE, 12 : HOLD, AFFTCHAfiF., MODELE 1 

COMPARAIS0N TRS, \2 : PRIX ,MEM0I RE, DISQUETTE 

TRS COULEUR, 13 : COULEUR, 6809 .MATERIEL 

COMPATIBLES, 11 : VIDEO GENIE, LNW80, MATERIEL 

ESSAI JEUX, 15 : ESSAI , JEU, LOGICIEL 

TRACE PAS A PAS EN BASIC, 17 ! PROGRAMME, BASIC 

UTILITAIRE 

VOTRE ORDINATEUR PARLE, 19 : ESSAI , VOCAL , LOGICIEL 

LOCATION DE SKIS, 20 : APPLICATION, MODELE 1.PR0F 

FUSEE PEDAGOGIQUE, 22 : ENSEIGNEMENT, BASIC, JEU, 

PROGRAMME 

JEU 5 DES, 25 : JEU, BASIC, PROGRAMME 

FICHIER SUR P00UETTE, 27 : POQUETTE.FICHIER BASIC, 

PROGRAMME 

J 'UTILISE CP/M, 29 : CP/M, MODELE 2, DOS 

AMELIORATION AFFICHAGE, 32 : BRICOLAGE, AFFICHAGE, 

MODELE 1 

TRAITEMENT DE TEXTES, 34 : TDT, SCRIPSIT, IMPRIMANTE 

AMELIORER VITESSE FRAPPE, 42 : BASIC , PROGRAMME , 

CLAVIER 

SUPER DRIVER IMPRIMANTE, 43 : DRIVEF, IMPRIMANTE, 

ASSEMBLE UR , PROGRAMME 

PREMIER PAS EN ASSEMBLEUR, 49 : INITIATION, ASSEMBLEUR 

ORCHESTRA 80,50 : ESSAI .MATERIEL, MUSIQUE, SON 

MAPPER 2 0MIKR0N, 51 : DISQUETTE, EXTENSION, ESSAI 

PASCAL UCSD ET P-CODE, 53 ! PASCAL, LANGAGE 

GESTION ARTICLES, 58 : BASIC, PROGRAMME, BASE DONNEES 

FICHE DOS A a Z, 65 : FICHE.DOS 
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TRACE vous four- 
nit quatre fois par 
an des program- 
mes, des astuces 
de nouvelles idees 
d'applicat ions. 
TRACE est inde- 
pendant de tout 
constructeur, et 

vous tient au courant de toutes les nou- 
veautes dans les domaines des logiciels, 
des materiels et des peripheriques, qu'elle 
qu'en soit la source. TRACE teste pour 
vous, en toute objectivite et independance, 
les produits materiels ou logiciels qui vous 
interessent. TRACE n'est pas en vente chez 
les marchands de journaux. Pour recevoir le 
numero 2 ou pour vous abonner en prof itant 
de notre tarif de lancement, retournez le ! 
bon de commande ci-dessous. 



F 



BON DE COMMANDE 

a retourner a TRACE, 8, rue St-Marc, 
75002 PARIS 



Nom :. 



~l 



Profession :_ 
Adresse : 



Code postal :_ 
Pays : 



.Villa :_ 



I ] Je desire recevoir le 
numero 2 de TRACE 
(France 25 FF ; Bel- 
g iq ue 1 70FB; 
Suisse 1 1 F S; 
Canada 6.50$; 
Etranger 30 FF). 



Je desire m'abon- 
ner a TRACE pour 1 
an, 4 numeros, en 
beneficiant de voire 
tarif de lancement 
(France 75 FF ; Bel- 
gique 500FB; 
Suisse 33FS; 
Canada 20 S ; Etran- 
ger 90 FF). 



□ Ci-joint mon reglement (indispensable). 






■■ 



VIDEO-GENIE^ 



TRS 
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31, Bd DES BATIGNOLLES 75008 PARIS 
TEL. : 522.70.66 - 387.01.56 

Ouvert tans interruption du lundi au samedi de 9 h 30 a 18 h 30 

Metro I Roma, Place de Clichy, Europe - Parking assure au 43 bis, Bd des Batignollet 

Ventc par correipondonce - Credit - Leasing - Corte Bleue - Visa. 



UTILITAIRES ET LANGAGES 
POUR TRS 80 ET VIDEO GENIE 



EDITEUR ASSEMBLEUR i 

ilernent 

i 280. 
.. luvegarde du source 

K 7 - 16 K 350 F TTC 

COMPILATEUR BASIC : 

ulion 
en passonl du BASIC 

1450 F TTC 

UCSO PASCAL : 

» originate. 
• drives 1950 F TTC 

FORTRAN : 

IS 1966. 

milium de 3? K 
1300 f TTC 

CP/M: 

■ilation de Dtsques le plus 
isles 
progr.: li innant sous 

CP M 1300FTTC 

l.O.O 

puivso 1 ' •■ 5 pouces, 

8pou ■ ' orma'oge 

qu t) 80 pastes. 
Comprend un JCI Joh C. 
nambreux 

1900 F TTC 

Inlinilo BASIC : 

A|OUle de nouvelles tonctions o voire BASIC 

i ■ tooles lies operations sur 
matrices (inversion, addition, multii 

ll decornpre', 
de carocteres Icxiui yuin de pluce). 

K 7 - 16 K 580 F HC 

Infinite Business : 

"cote de 
nouvelles lonclions : precision des nombres i 
jusqu'o 1?D o i.jinahon sur 

impnmanle . manipulations diveises sui les 
tableaux de cbaines de caro I 
K 7 - 16 K 580 F nc 

ENHBAS: 

12 nouvelles instructions ou BASIC ; 
.-'%. 25TEP : execution dun 
p'oyrumme pa r . ei pas e)SORT : tn rapide 

• RESTORt Hm numl et • WHILE WEND 

• DRAw»jnam! nam 
aune ligne Basice)EXEO" 

execu' 

. i.-... 
ENHBAS16K-K7 450 F TTC 

ENHBAS 32 K -Disk 450 F HC 

ENHGRAPH i 

A|Oute 20 nouvelles instructions au Basic 

• Exemples : PLOT i Trace une ligne. 
un i eclangle • INVERT : Inverse les 
carncteres graphiques a I'ecran • PLAY 



ru musicales* WHILE WEND* 
DRAW. ETC. . 

ENHGRAPH 16K-K7 302 F TTC 

ENHGRAPH 32 K - Oisk 302 F nC 
ENHSORT : 

Ajoute 22 nouvelles irstructionsdetr i el 
d edition au Basic. Exemples : KEY TAG i 
initialisation des vecteurs a trier • SORT 
(pammelres) : li'i rapide en RAM • 
ATOP : limite de tn GSUB (label) • 
WHILE WEND. CTC .. 
EHNSORT 16 K - K 7 302 F TTC 

EHNSORT 32 K - Disk 302 F TTC 

G.S.F. : 

Routines en langage machine (appel£es par 
USR} a odjoindre a vos programmes BASIC 
poui ougmenter leurs performances : 
trace de lignes sur I ecran. manipulations 
de donnees en memoire. vive, tn en 
memoire centrale. compression el 
decompression de donnee; 

K 7 - 16 K 295 f TTC 

K 7 - 32 K 295 F TTC 

K 7 - 48 K 295 F nC 

D.S.M. i 

Tn m. ilidisques. 

Resout tous les problemes de Iri Necessite 
I lira 3? K el 2 drives ., 750 F TTC 

INSORT 80 : 

Programme de tri de f ichiers sur disques, 
lonctionnant sous New-Das. Necessite au 
12 K et un drive. (Ccssette a 
nr disque). 
K 7 • 32 K 495 F HC 

T SHORT : 

L'entree au clavier de longs programmes 
BASIC est chose last dieuse. Avec T5HORT, 
chaque touche du clavier (en mode SHIFT) 
correspond une instruction basic 
complete. Foumi avec une cassette, 
un manuel et un |eu de petiles etiquettes 
collet sur le devant des touches du TRS 
K 7 - 16 K 195 F TTC 

COMPROC I 

Permet de faire s'au'o-executer des 

programmes Basic. Le programme repond 

: 1 1» aux IMPUT a portir dune liste 
creeepar lulilisateix Chomagede 
programmes, etc... Compatible avec le 
Disk Basic, IRS DOS et NEWDOS. 
16 K - K 7 170 f nC 

BUNK : 

Permet de chainer des programmes en Basic 
avec passage de donnees de Tun d I'autre, 
demnrroge du programme chaini 
numero de ligne Banc donne, etc. 
16 K - K 7 290 f nC 

KEYBOARD EDITOR I 
Permet i touches 6 repetition outomc 
touches grophiques 191 touches 
programmobles, duplication de lignes basic, 

Eonctionne sous Basic, Dos ou 
Edileur-Assembleur Compatible 
TRS DOS, NEW-DOS, NEW-DOS 80 
32 K -Di»k 450 FnC 



BOSS: 

Aide a la mise au point de programmes 

BASIC. Execution d'un programme Basic 

inttruction par instruction, ligne par ligne, etc 

Visualisation de la valeur des variables a 

ct-aque pas, etc. Puissant oulil de 

debugging. 

K 7 - 16 K 290 F nc 

BUGOUT : 

Ade a la mise au point de programmes en 

langage machine. Comprend aussi un 

desassembleur 

K7-16K(paurTRSMod.l 

el Mod. 3) 380 F nc 

DISASSEMBLER I : 

Programme permettant de deiassembler 

un programme en langage machine et cnSer 

amsi un "Source" qui pourra etre klj 

lediteur-ossembleur. 

K7-16K 185 FnC 

DISASSEMBLER II i 

rvWnr- chose que le I. mais version disque 



Cassette a transferer sur disque. 
K7-32K 250FnC 

MuMalh : 

Ce programme ecril en LISP (ait du calcul 
integral, du calcul dlfferentiel, etc. 
Capable d'nflicher des nombres de 611 
carocteres, il vous donne par exemple lo 
voleur de 250 ! (Fadorielle 250). Enlre? lui 
I'integrale hdefinie ! INT (A - X * SIN (», 
X) ; quelques secondes el la reponse 
apporail. X'2" A 2-Cos(X). 
MuMoth vous developpero amides 
expression! telles que i (3x + 2) , vous 
evilnni uircit '.li/ Iuhlis et fustidieux calculi, 
etc. 

Sur lo meme 1 1 

de programmer voire TRS 80 dans un 
nouveau langage. Necessite ou 
moms 32 K 1 drive (48 K pour les 
derivation:, et integrations) 780 F nC 

COBOL 80 : 

Fondionne sous CP M avec 48 K el dejx 

5300 f nc 



utt BON DE COMMANDE 

| Retourner a : SIVEA SA. - 31, Bd des Batignolles 75008 PARIS 



Norn : 



Adresse : 



I 
I 
I 

I 

I Vllle 

| CodePoitah. 
| Pays: 






. Bureau Dis' 1 






QminMe 



DESIGNATION 



MODE DE REGLf-.' 

. , ,i i 

CCP |Oinl 

Mandul lettre |Oint 
Canlie-Roml 



PRIX UNIT HK'IX TOTAi 



TOTAL 



I : 



30 F 



M TOM 






TOTAL 



FRAIS DE FORI Fl D'EMBAILAGE 



IlKAlb Lit PUKI t I U tMBAlLAUt 
■ i 220 F pour loule i.oiunionde comporlanl poui loul ou partie. des articles tels 
I que untlt . monileur video, papier pour impnrnanle. 

Tionsporl par service express avec assurance comprise Corse. DOM-TOM. en 
I nous consultei par telephone ou courrier en ce cos) 









I 



31, Bd DES BATIGNOLLES 75008 PARIS 
TEL. : 522.70.66 387.01.56 




Ouvert sans interruption du lundi au tamedi de 9 h 30 6 18 h 30 

Metro : Rome, Ploce de Clichy, Europe • Parking assure au 43 bis, Bd des Batignolles 

Venle par correspondence - Credit - Leasing - Carle Bleue - Visa. 



CONFIGURATION DE BASE : 



TRS 80 1 6 K Cassette 4990 F TTC mftnafaa iiusquo 48 K), disques 

Avec moniteur video, cables et manuel dusqu'a 4 drives), imprimanle, poddies, 

en francais Configuration extensible : etc,,. 




PERIPHERIQUES : 

INTERFACE DEXTENSION TRS : 

Avec 32 K de memoire supplementaire 
augmente la capacite lolole du systeme a 
48 K. Permet lo connexion de 1 6 4 drives, 
d une imprimanle (sortie paralele] 

4500 F TTC 
DRIVE SIMPLE : 

Se branche sur rinterloce d extension 
(cordon fourni). Capacite . env 55 K 
pour le premier et 90 K pour les drives 
suivants. 

Fourni avec NEW DOS Plus et manuel 
DOS. NEW -DOS en francais. 3500 F TTC 

ACCESSOIRES : 

• SORTIE SON : 

f uiicliuniie ovec une pile de 9 V. 

Se Dranche sur la sortie mogne-ophone 
Permet de prodoire des impulsions sonores 
commandees par programme 155 F TTC 

• PADDLES: 

Poignees de jeu : controle des mouvements 
dans les quotre sens (haut, bas ; gauche, 
droite) et un bouton de fir. 
Livre ovec une notice en Iranccus, tjne 
cassette de demonstration 



1 1 leder directemenl une imprimanle 
"ntiale(clovier). . 510 F TTC 

IMPRIM ANTES : 





Paddle n° 1 : Unite de base, fourni ovec 

i in hnltier y? connectanr soi' sur le clavier, 

soitsui finterlace d'extension. 

Sur le boitier un e prise DIN ~st prevue 

pour brancher le PADDLE n° 7 425 F TTC 

Paddle n° 2 : Fourni sans boitier 

se connecte sur le boitier du 

PodoW 225 FTTC 

• CABLE IMPRIMANTE - CPU : 



IMPRIMANTE SEIKOSHA GP 80 : 

Jeude 128caracteresetsymbolesen 
matrice 5x7 40 ou 80 caracteres par 
figne. EntroTnemen. par picots. Largeur du 
papier - 2) cm maximum. Possibility de 
grapheme haute-resolution . .2670 F TTC 
Cable interfa:e 330 F TTC 

CobleCPU 590 FTTC 

IMPRIMANTE OKI MICROLINE 80 : 
Jeu de 96 caracteres ASCII en matrice 9x7. 
40, 80 ou 132 colonnes. Caracteres 
grapfiiqiues. Reproduif le graphisme du 
TRS 80. Friction ou traction par picots, 
largeur du popier i listing 240 mm ou 

rriction 210 rrm Impnmantc trcs robustc*. 

MICROLINE 80 3995 F TTC 

MICROLINE 80 avec c6ble 

interlace 4330 F TTC 

MICROLINE 80 avec cable 

CPU 4500 FTTC 

LANGAGES : 

Edileur - Assemblsur 

MICROSOFT : 16 K, K7 . 350 F TTC 

TINY PASCAL : K7. 16 K 350 f TTC 

COMPILATEUR BASIC MICROSOFT : 

1 Drive. 48 K 1450 F TTC 

UCSD PASCAL : 

2Drives,48K 1950 F TTC 

FORTRAN :1 Drive. 48 K 1300 F nC 

COBOL ; necessila CP/M + 

2Drive» + 48K 5300 FTTC 



D.O.S. (Disk operating 
System) 

L.D.O.S 1900 FTTC 

CP/M 1300 FTTC 

New-Dos 80 Version 2.0 PRIX N. C. 

UTILITAIRES ET 
PROFESSIONNELS : 

Complabilite P.M.E. : 

Creation et consultation de comptes, 
saisie des ecritures co-nptobles, edition des 
joumaux, balance des comptes, 
operations de (in d'exercice, etc. 
En francais. Comptabilite francoiie. 
Requiert 32 K, 1 drive et 1 imprimonte 

(type Microline 801 900FTTC 

Cours de Basic programme 

|sur di-.quette ou K7) . 350 F TTC 

Fichier clients + mailing : 

'iier clients sur micro-ordinateur. 
Edition des eliquettes-adresse sur 
imprimanle pour mailings. En francais. 

Requicit 32 K, 1 drive et one imprimonte 

pour les mailing-, .300 F TTC 



BOSS: 

Aide a la mise au point de pfogi 

BASIC. Execution de programmes Pas 

a Pas, ligne pi;' -.utilisation du 

contenu des variables choque pa 

Puittonl outil de debugging. 

K7.16K 290 FTTC 

BUGOUT : 

Aide a la mis- b progrommes 

en bngage machine. Comprend oimi un 

desassembleur , 

K7.16K(pourTRSmodolel 

et model* 3) . 380 F TTC 

LIBRAIRIE : 

• Manuel DOS et NEW-DOS 

en FRANCAIS 95 F nC 

• THE BOOK Vol 1 135 F TTC 

• THE BOOK Vol 2 135 F TTC 

• TRS DISK 8. OTHER 

MYSTERIES 190 F TTC 

• MICROSOFT ROM DECODED & 
OTHER MYSTERIES 260 F TTC 

• THE CUSTOM TRS & 

OTHER MYSTERIES PRIX N. C 

• BASIC FASTER AND BETTER ft 
OTHER MYSTERIES 280 F TTC 



j tr st BON DE COMMANDE 

I R«lourn«r a : SIVEA SA. - 31, Bd das Botignoll.s 75008 PARIS 



' |. .;:. 









j V.lle 



Code Postal : 



■ 



■ 



■ 






DESIGNATION 



MODE DE REGIEMENT ■ 
C heque bancaire >o" $ 

Mandat-leltre jotnl 

1 






rout 



Je port of 

■ 



■ 




,,., ffoow n 



TO"AL 



I 

j iiisulter par lelephom BfloVOCH), 






FRAIS DE PORT FT Df MBALLAGE 

Ajouter 220 F pour route command* coniportont. pour tout ou uortie. des or, 
que : unite cerilrale, Floppy -disfc, impnmante, moniteur video, papier pa 
1 par service express avec assurance comprise. Corse, DOM T' 



La societe Craphie propose une carte graphio ue a 
haute resol ution 1384 x 192) soit douze Tois la 
resolution standard, se raccordant au bu3 du modele 
1, syant pour nom CHB80. Ce disposltlf ss programme 
dlrectement en BASIC au moyen de mots-clSs speciaux. 
Afln de ne pas penallser l'espace meraolre de l'utlli- 
sateur, la carte possede sea propres circuits de 
meraolre. Un ayateme d'effacement "hardware" permet 
de creer des effeta d 'animation speotaculaires. Prix 
avec cable de raccordement et manuel : 2490 FF tto . 
La neroe societe annonce une carte d' extension me- 
moire de 16 ou 32 K octets se logeant dans le cla- 
vier du modele 1 de base, pour les utilisateurs 
depourvus d'interface d'extension. Prix : 995 FF ttc 
pour |6K (modele MI-l), 1380 FF ttc pour 32K (inodele 
MI-2). 



Taney commercialise maintenant (aux USA) des unites 
de ninldlsquettes 13cnpour le TRS couleur . La ca- 
pacite est de 156 K octets par unite ; une a quatre 
unites peuvent etre raccordees a cet ordinateur. 
Le prix actuel eat de 099* (environ 3400 FF) pour la 
preniere unite, 399$ (2300 FF) pour les suivantes, 
ce qui porte le prix du TRS couleur a 1198$ (6800 FF) 
en configuration 16K (sans recepteur de television), 
avec BASIC etendu et une rainidisquette. 
A ce sujet, la version couleur ne devrait plus 
tarcer a etre disponltle en France, en standard PAL 
dans un premier temps, ce qui oblige a avoir un 
rcccptcur dc telcvioien multi-standards. Le prix en 
16K BASIC etendu est finaleme n t de 5795 FF ttc. 

Alpha Systeme3 presente en France 1 'edition ameri- 
caine de l'encyclopedle du TRS-80 en 10 volume? . 
Les trois premiers volumes sont disponitles sous 
deux presentations : relie (200 FF ttc a 1 'unite) 
ou broche (100 FF ttc a 1' unite). 



Vldeo-Cenle System annonce de nouveaux modeles 82 : 
le EG 3003 avec caraeteres minuscules, disposltlf 
sonore incorpore et BASIC 11 K octets incluant un 
moniteur langage machine et une commande de re- 
numerotation, et le EG 3008 ayant les memes carac- 
teristiques que 1 ' EG 3003 mais possedant de plus, 
un clavier numerlque. Le magnetophone n'est pas 
inclus dans ce modele. Une routine de communication 
par le canal V24 (RS232) est incluse dans les MEM 
du BASIC (a la place du moniteur langage machine). 



Le premier modele 3 francals de serie a du sortir le 
20 Janvier des chalnes de l'usine de Colmar : 
resultat des accords Matra Tandy, auxquels le gou- 
vernement francals a finalement donne son feu vert. 
La production pourrait atteindre '0 a 15000 exemplai- 
res par mois a la fin de l'annee, dont une grosse 
partie aera cxportee en Europe. 



Lors d'un passage en Italie, nous avons pu nous 
procurer le catalogue de Tandy Italia , dont la 
lecture nous a revele quelques nouveautes interes- 
santes qui ne semblent disponibles qu'en Italie. 

- Un dlsque "dur" de 13 cm . sans doute d'origlne 
Olivetti, avec une capacite unitalre formattee de 
3, € ou 10 Megaoctets ; un controleur permet 
d'equiper le Modele 3 de 1 a t unites de ce type, 

- Un dlsque "dur" de 20 cm . avec une capacite uni- 
talre formattee de 3, 6 ou 10 Megaoctets, destine au 
Modele 2. 

- Un disque "dur" d'une capacite de 10 Megaoctets 
(5 fixes, 5 amovibles) auquel on peut connecter 
par un raultiplexeur special de 1 a 60 modeles 1 , 2 
et 3 melanges. 




Le "couleur" facon Thomson : nous n'avons pas encore 
pu mettre la main sur le prochain ordinateur lndl- 
viduel de Thomson-Brandt , le 9000, a brancher sur 
une TV couleur SECAM. Mais nous avons reussi a 
savoir qu'll presenterait de nombreuses ressemblances 
avec un systeme americain connu : processeur 6809 , 
BASIC Microsoft version 5 avec instructions graphi- 
ques et sonores, affichage de 24 lignes de 1*0 
caracteres avec couleur semi-graphiques, etc. 
Un crayon lumineux et des poignees de Jeu optionnelles 
completent ce systeme qui devrait couter 2 a 3000 FF 
ttc. Le 9000 et le TRS Couleur arriveront-ils a 
donner au Microprocesseur 6809 tout le succes qu'il 
merlte ? En attendant, si Thomson vend son ordinateur 
par l'intermediaire de son reseau de revendeurs TV, 
cela va falre du monde ! 



La gamme Tandy devrait s'etoffer a la NCC (juin82) 
avec un (ou des) nouveau(x) modele(s). Les informa- 
tions que nous avons eues semblent un peu contra- 
dtotol res (TRACK n'a pas encore toute la notoriete 
souhaitable et nerltee ! -NDLR), puisque s'll 3emble 
certain que le microprocesseur utilise sera un 16 
bits, nos lnfornateurs sont partages, les uns disant 
qu'il s'agira du Zilog Z8000, les autres affirmant 
tout aussi certainement que ce sera le Motorola 68O0O. 
Mais comme on nous a egalement parle des modeles 4, 
5 ou 6, rien n'empeche de penser que tout est vrai I 

Le Sharp PC- 12 11 va sans doute etre remplace par le 
nouveau Sharp PC- 1500 . qui sera disponible avec une 
imprlmante graphioue 4 couleura (silsll). Le 1500 
est a peine plu3 gros que le 1211, et devrait couter 
en France, au prochain trimestre, 1500 a 2000 ff ttc. 
L' imprlmante aurait un prix du meme ordre. Ah, ces 
ordinateurs de oociie ! 
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Le nouveau systeme Apple 3 vient d'etre re-lance sur 
le marche amerlcain (et enfin lance sur le marche 
europeen). Ouelques deboires avaient ete rencontres 
sur lea premieres versions dc cc materiel, qui 
paralt maintenant avoir finalement atteint le niveau 
de fiabilite et de flnition que souhaitait son 
constructeur . Deux atouts important s de cette 
machine serablent etre VlslCalc et Profile . Si le 
premier est bien le programme habitual de manipula- 
tion de tableaux numeriques, le second en revanche 
n'est pas le programme fort connu de gestion de 
fichiers, mais en fait un disque dur d'une capacite 
de 5 millions d'octets. 

L'affichage sur un ecran de 80 caracteres (au lieu 
des MO de 1' Apple 2) devrait egalement faciliter 
1' utilisation de cette machine, qui comporte de plus 
un generateur de caracteres modifiable par prog- 
ramme. De quoi passer tres vite en AZERTY accentue ? 



DERNIERE MINUTE 



DERNIERE MINUTE . . . DERNIERE 



D'apres un appel telephonique de notre correspondant 
a Fort Worth (ce n'est helas pas un "officiel" de 
chez Tandy), Tandy vient d'annoncer aux Etats-Uni3 
toute une serle de nouveaux produits . Le siege euro- 
peen de la societe se refuse a tout comraentaire sur 
ces informations, qu'il est done prudent d'accuell- 
lir avec quelques reserves. 




- Une nouvelle machine apparalt en haut de gamme, 
sous le nom de TR3-80 Modele 16 . Ce systeme est 
compatible avec le Modele 2 , et serait utilisable en 
multiposte avec un terminal standard appele Data 
Terminal DT 1. L'unite centrale comporte deux micro- 
processeurs : un Z80 (8 bits) destine a permettre la 
compatibility avec le Modele 2, et ur. Motorola 68000 
116 bits), qui permet l'acces a une memoire vive de 
'28 a 512 K-octets. La memoire de masse serait en 
standard un disque dur de 8,U millions d'octets. Un 
kit de transformation permet de convertir un modele 
2 en modele 16. 

Prix aux Etat3-Unis : Modele 16 de 128 Ko de memoire 
MEV, 5000 $ (environ 29000 FF); kit de transforma- 
tion modele 2/16, 2000 $ (11000 FF); terminal DT 1, 
700 $ (1000 FF). 



- Bien plus bas dans la gamme, l'ordlnateur de coche 
TRS-80 "poquette", alias Sharp PC 1211, se verrait 
complete par une nouvelle machine (ou version plus 
etoffee ?) appelee PC 2 . et qui oouterait 279 $ 
( 1600 FF environ). 

Si toutes ces informations se confirment, ellea 
justifieraient pleinement 1 'attitude des officiels 
de Tandy qui ont jusqu'a present farouchement nie 
1' existence de TRS modeles t , 5 ou 6 : il suffisait 
d'aller jusqu'a 16 ! 



Bientot des claviers AZERTY accentues sur tous les 
modeles de TRS ? II existe deja un kit de transfor- 
mation pour le modele 1, qui s'utilise avec un 
"patch" loglciel a apporter a differents progranmes 
tels que Scripsit, et qui permet ainsi du vrai trai- 
tement de textes sans acrobaties. 

Un kit du meme type devrait etre prochainement dis- 
ponlble pour le modele 3. sans doute des mars... si 
les claviers modifies sont livres assez vite. Cette 
premiere modification utilisera en effet un clavier 
"mixte" : AZERTY accentue pour le traitement de 
textes et certains programmes modifies specialement , 
QWERTY standard pour le BASIC et les autres program- 
mes non modifies. On peut se demander si lea 
machines construites par Matra seront ou non ainsi 
transformees. . . 

En septembre, la transformation devrait etre amelio- 
ree, permettant notamment d'utiliser tous les logi- 
ciels standards avec le meme clavier et la meme 
disposition de touches AZERTY. 

En septembre tou jours, le modele 2 devrait lui aussi 
benef icier d'une modification de ce type. 



Adresses de3 societss mentionnees 



- Alpha Svstemes : 51 rue Thiers, 38000 Gre- 
noble. 

- Apple : 7 rue de Chartres, 92000 Neuilly. 

- GES : 76 avenue Ledru-Rollln, 75012 Paris. 

- Graphie : Galerie 92, 92 rue Saint-Lazare, 
75009 Paris. 

- Sharp : 151 avenue Jean-Jaures, 93307 Auber- 
villiers Cedex. 

- Tandy Prance : 211 boulevard MacDonald, 75019 
Paris. 

- Tandy Italie : Corso Vif.orio Emanuele 15. 
20122 Milano, Italic. 

- Thomson-Brandt : 1 73 . boulevard Haus3mann, 
75008 Paris. 
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•Tttts a RfQc 



Sous ce titre, vous trouverez pele-mele, dans chaque numero, un tas de petits rensei- 
gnements pratiques d'origines diverses, qui vous perraettront de tirer un meilleur 
parti de votre ordinateur et de ses particularites. 

Le Pascal UCSD en minuscules 

Si vous possedez le Pascal UCSD et si votre Modele 1 accepte les minuscules, ce 
"patch" vous permettra de concilier les deux. II doit etre applique sur la pre- 
miere des trois disquettes d'origine du Pascal distribue par FMG, a l'aide de 
l'utilitaire SUPERZAP du NEWD0S80 (ou equivalent). Pensez a faire une sauvegarde 
avant toute chose . . . 

- Piste 12, secteur 3, adresse relative 9SH : 
69 D6 20 2k... devient 69 00 00 2A... 

Une incompatibilite du BASIC sous NEWD0S80 

Le BASIC du NEWDOS80 version 1 presente une anomalie se manifestant par exemple 
dans un programme tel que VERSAFILE. Lorsqu'une sous-chaine vide (cela peut arri- 
ver ! ) est recherchee dans une chaine, 1 ' instruction INSTR delivre le resultat 
alors que les autres BASIC (LDOS, TRSD0S) delivrent le resultat 1. Bien que l'un 
ou 1' autre des resultats soit contestable (une chaine non-vide contient-elle une 
sous-chaine vide?), il peut en resulter un probleme de compatibility. Apparat, 
createur du NEWDOS80, propose un "zap" pour corriger cette anomalie. C'est le 
dernier "patch" officiel de la version 1, (avant passage a la version 2) qui porte 
le numero 60. Nous le donnons ci-dessous pour ceux qui n'en auraient pas eu 
connaissance. 

- BASIC /CMD secteur 5, adresse relative 9D : 
E1 81 38 1D ED 44 80 47 30 17 devient : 

E1 90 30 1D ED 44 91 47 38 17 

Pour savoir si ce patch est necessaire, essayez le programme ci-dessous : 

10 A$="CHAINE" 

20 B$="" 

30 1= INSTR (A$,B$) 

40 PRINT I 

Si le resultat est 0, le patch doit etre applique. II est possible de detourner le 
probleme en ajoutant la ligne : 

35 IF LEN(B$)=0 THEN 1=1 



40 pistes ? et pourquoi pas 41 ? 

Vos unites de disquettes acceptent 40 pistes ? C'est deja un progres par rapport au?- 
35 classiques, a condition d' employer un DOS qui sache les exploiter (NEWD0S80, 
LDOS). Mais avez-vous essaye d'en demander 41 (ou peut-etre meme 42)? Dix secteurs 
supplementaires sont tou jours apprecies et certaines unites les acceptent. Voici 
les capacites obtenues pour une disquette non-systeme : 
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35 piateo 

40 pistes 

41 pistes 



67 granules, 85760 octets utili3able3 
77 granules, 98560 octets utilisables 
79 granules, 101120 octets utilisables 



Avec NEWDOS80, il suffira de faire : 

FORMAT , 1 =40 , T0TO , 00 /00/00 , PASSWORD 

et avec LD0S : 

FORMAT :1 ( NAME =" T0T0" ,MPW=" PASSWORD" , CYL= 40) 



Signal sonore avec 1' interface d' extension 

L'interface d'extension du Modele 1 contient, vous le savez peut-etre, un relais 
electromecanique permettant l'aiguillage vers l'un ou 1' autre des deux magneto- 
phones. Ce relais possede deux etats stables pouvant etre programmes par l'adresse 
14308. Voila qui est suffisant pour realiser un puissant signal sonore (par vib- 
ration du relais), avec le programme ci-dessous : 

10 ' SIGNAL SONORE 

20 FOR N=1 TO 20 

30 POKE 14308,0 : POKE 14308,1 

40 NEXT 



Attention a VARPTR 

Avant d'utiliser 1 ' instruction VARPTR du BASIC sur des tableaux numeriques, il faut 
savoir que toute creation posterieure de variables modifiera 1 ' emplacement initial 
de ce tableau. Voici un petit programme qui vous montrera bien ce qu'il convient de 
faire - ou ne pas faire - en de telles circonstances. 

10 ■ UTILISATION C0RRECTE DU VARPTR 

20 * 

30 A% (O)=4660 

40 PT=VARPTR (A%(0)) 

50 PRINT PEEK (PT) , PEEK(PT+1) 

60 END 

70 ' 

80 ' UTILISATION INCORRECTE DU VARPTR 

90 ' 

100 A%(0)=4660 

110 PT=VARPTR(A%(0)) 

120 FOR N=0 TO 1 

130 PRINT PEEK(PT+N) 

140 NEXT : PRINT 



En executant un "RUN" du programme, les valeurs trouvees a l'adresse pointee par 
le VARPTR sont affichees. Le resultat est correct (52 + 256 # 18 = 4660). Pour exe- 
cuter le second programme, il suffit de faire "RUN 100". Comme vous pourrez le 
constater, le resultat affiche est errone. Pourquoi ? La boucle des instructions 
120 a 140 introduit une nouvelle variable N qui vient modifier 1 'emplacement du 
tableau A%. La valeur initiale donnee par le VARPTR ne sera done plus exacte. 
Pour vous en convaincre, relancez ce programme par GOTO 100 et constatez que cette 
fois, le resultat est correct. Pour eviter cet inconvenient, il suffit de creer N 
avant d' employer le VARPTR en ajoutant la ligne : 105 N=0. 
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Simulez une touche HOLD sur votre modele 1 



Sur le modele 2, la touche HOLD permet de geler l'affichage video a n'importe quel 
moment. Sur le modele 1, on peut utiliser les touches SHIFT et . Le probleme est 
que ces touches sont completement ignorees de certains logiciels, corame le compi- 
lateur BASIC par exemple. La routine en langage machine ci-dessous vous permettra 
de stopper la liste sur un simple appui de la barre d'espace. 



00100 


ORG 


0FFE0H \ 


SELON MEM SIZE 


00110 HOLD 


LD 


HL7<4D1EH) ! 


ADR DRIVER DO ACTUEL 


00120 


LD 


(VISU+1);HL 




00130 


LD 


HL?WAIT ! 




00140 


LD 


(401EH) ?HL 


; DEROUT. DRIVER DO 


00150 


LD 


U049H);HL 


ET PROTECTION MEM 


00160 


JP 


402DH i 


RETOUR AU DOS 


00170 WAIT 


PUSH 


AF 




00175 


LD 


A>(3840H> ! 


LIGNE KB DU SPACE 


00180 


CP 


80H 


TOUCHE ENFONCEE? 


00190 


JR 


ZtWAIT+I 


OUI 


00195 


POP 


AF 




00200 VISU 


JP 


0000 


SURPRIS ? 


00210 


END 


HOLD 





materiels 



Tableau comparatif 
des TRS 



Les prix indiques ont ete calcules d'apres les do- 
cuments publlcltaires Tandy. Les capacltes des dls- 
quattaa correspondent aux valeurs "brutes" non- 
formattees. 



Mcdele 


MEM 
(ROM) 


MEV 

iram: 


Disquettes 


Prix total 
(FF ttc) 


1 


IK Niv 1 
16K Niv 2 

tl 


IK 
16K 
18K 

H 


1x5" ( 89K) 
1x5" (356K) 


3995 

1990 

9625 

13*120 

23605 


3 


IK Niv 1 
16K Nlv 2 

it 


IK 
16K 
18K 

II 


1x5" (17510 
2x5" (350K) 
1x5" (70OK) 


6195 
8195 
10285 
16780 
20075 
26865 


2 


(boot) 


32K 
61K 

M 


1x8" (500K) 

» 

2x8"(1000K) 
ltx8"(200OK) 


25895 
29590 
39385 
19510 



Quelques informations complementaires : 

- Le modele II sera bientot equipe d'un dlsque dur 
dont nous ignorons actuellement la capacite (5 ou 
10 Mo ?). 

- Moyennant un logiciel et un materiel adequats (non 
commercialises par Taidy), les memoires de stockage 
du modele 1 peuvent etre augmentees dans des propor- 
tions respectables : 

. minldisquettes 10 pistes : 102K formattes 

. minldisquettes 80 pistes 201K formattes 

. doubleur de densite Percom : l80a360K formattes 
."mapper II" Omlkron pour disquette 8" : 320K for- 
mattes. 

-En standard, les minldisquettes du modele 3 posse- 
dent 10 pistes. IL est possible d'en doubler la ca- 
pacite en les remplacant par des unites de minl- 
disquettes 80 pistes, ou par des minldisquettes 
double face d'autres fournisseura. 

- Des disques durs 13 cm d'origine CII seront sans 
doute proposes prochainement par des societes 
independantes, tant pour le modele 2 que pour le 
modele 3- ne tela disques ont en general une 
capacite de 5 a 10 millions de caracteres. 
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materiel 



Coup d'oeil... 
...dans le TRS Couleur 




Vous avez peut-etre apercu le "Couleur" aux boutiques 
du SICOB ? Nous aussi. Et notre "super-vue" a rayons 
X a meme reussi a s'infiltrer sous la coqullle grlse 
du clavier ! 

Ce que nous y avons vu nous a fort surpris : deux 
douzaines de circuits integres, tous d'origine Moto- 
rola, y compris le microprocesseur lui-meme, le 
6809. Fini le Z80 des modeles 1, 2 et 3. Pourquoi 
ce choix ? 

Le MC6809 de Motorola est un puissant microproces- 
seur 8 bits, capable d'executer un certain nombre 
d' instructions 16 bits. II est derive du 6800 tres 
connu, sur lequel il a la superiority de posseder 
trols registre3 supplementaires. Le jeu d' instruc- 
tions de base est tres etendu (il possede meme une 
multiplication d'octets) et possede l'avantage de 
ne presenter aucune exception dans la portee des 
modes d'adressage. Le code executable est relogeable 
et "re-entrant". Voila, en bref, pour le micropro. 
cesseur. 

Ouatre autres circuits 10 pattes se partagent le 
rsste du travail. Le controleur video MC6847 fournit 
aj "couleur": un mode alphanumerique a 4 couleurs, 
avec 64 graphlsmes possibles plus ces raemes 64 en 
inversion video, sur 16 lignes de 32 colonnes; deux 
modes semi-graphiques (64 x 32 blocs et 64 x 48) en 



8 couleurs; et huit modes graphiques (64 x 64 a 
256 par 192) de 1 a 8 couleurs selon la definition 
atteinte. Un controleur MC6883 genere les impulsions 
d'horloge et le rafraichisseraent de la tnemoire. 
Enfin, deux controleurs paralleles MC6821 assurer.t 
1' interface avec le magnetophone (vltesse 1500 bauds \ 
le canal son/video, les 2 manettes Je Jeux, la 
liaison RS232 (pour le premier) et le raatricage du 
clavier (pour le second). Le BASIC est contenu dans 
une ROM de 8K octets, completee d'une seconde HOK 
de meme taille dans le cas du BASIC etendu. La rae- 
moire vive a une capacite de H ou 16K octets (16K 
obligatoires en BASIC etendu), sur laquelle sont pre- 
leves jusqu'a 6K pour les graphiques en haute reso- 
lution. 



Compte tenu du profll de la machine et des composants 
electronlques actuellement disponlbles, cette con- 
ception homogene et efficace nous semble particuli- 
erement bien etudiee, ainsl que l'etait, en son tsmpa 
celle du modele 1. Nous ne pouvons que lul souhalt^r 
la meme reussite (et moins de defauts de jeunesse I). 

Neanmoins, ce systeme ne sera vraiment interessant 
en France que lorsqu'il sera dote d'une interface 
couleur adequate (SECAM ou Peritel), car actuellement 
le moniteur NTSC en greve le prlx d'une raanlere qui 
n'est pas a negliger . 
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materiel. 



Les compatibles 
du modele 1 



Sous ce vocable, nous voulons designer deux systemes 
apparus depuis peu sur le marche amerioaln, et 
encore plus receroment en France : Le Video Genie 
(ou ?MC80),- et le LNW80 qui presente la particularity 
d'etre vendu sous forme de "kit". Ces deux ordina- 
teurs sont, 9l l'on «-n croft, lfiiirs constructeurs, 
compatibles avec le TRS-80 Level 2, ce qui signifie 
que, a priori, tout logiciel fonctionnant sur modele I 
pourra "tourner" sur ces machines. Le TR£80 etant 
plus connu et aussi le premier hlstoriquement , nous 
designerons lndifferemnent sous cette appellation 
le TRS80 modele 1, le Video Genie et le LNW, a moins 
bien sur qu'une difference ne nous soit connue et 
qu'cllc mcrlte d'etre signalee. 




Nous n'avons que peu d' informations sur le LNW80 : son 
importation en France ipar Penta-Sonic) semble assez 
recente, et son approvisionnement par ce canal parait 
poser encore quelques problemes. (Encore que divers 
membres de 1'A.U.T. nous aient assure avoir reussi 
sans trop d' ennuis des importations directes depuis 
les Etats-Unls.) Aussi preferons-nous ne vous en parler 
que dana un prochain numero. 

Le Video Genie par contre nous est moins inconnu, et 
noua allons signaler ici les quelques incompatibi- 
lites (minimes) que vous pourriez rencontrer en 
programmation : le propre d'un compatible, n'est-ce 
pas d'etre incompatible sur certains points ? 

Sur les premiers modeles, les touches correspondant 
sur le TRS a "fleche en haut" et "fleche en bas" 
portaient les roarquages respectifs "ESC" et "CTRL". 
De meme, la "fleche a gauche" s'appelait "back 
space". Les touches "fleche a drolte" et "clear" 
n'exlstaient pas. Actuellement , les nouveaux 
modeles (EG 3003-82) ne possedent plus ce3 dlffe- 
renceo. 

Les graphismes video des quatre fleches sont rem- 
p laces, a l'lnstar du modele 3, par les symboles 

"l~", "]", "\" et """ . 

Le code decimal 23, lcrsqu'il est envoye vers la 
video (PRINT CHR$(23) ), ne provoque pas le passage 




en gros caracteres. Celul-ci s'effectue par une 
commande manuelle. Neanmoins, la corapatibilite "32 
caracteres par ligne" est conservee puisqu'un espace 
est automatiqueirent intercale entre chaque caractere. 

Les deux magnetcptiones sont commar.des par les deux 
"ports" d'adresse OFFH et OFEH. Sur le TRS, seul le 
port OFFH est utilise, la commutation d'un magneto- 
phone a 1 'autre etant pilotee par l'adresse 37E'4H. 

L'imprimante parallele est commandee par le port 
OFDH, alors que sur le TRS, elle est pilotee par 
l'adresse 37E8H. 

Enfln, le Z80 du Video Genie recoit une horloge de 
1.79 Mhz contre 1.77 pour le TRS, ce qui peut appor- 
ter quelques differences dans les programmes faisant 
appel aux calculs de temps. 

Nous n'avons eu entre les mains qu'un Video Genie 
"de base" sans disquette : impossible de dire pour 
1' instant si cet organe periphericue presente des 
differences dans la programmation. Que les posses- 
seurs de ce systeme nous fassent part de leurs expe- 
riences ! 




Dans un prochain numero, nous vous parlerons d'un 
autre compatible du modele 1, et de ses incompati- 
bilites : le modele 3 ! 
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Deux programmes 
de jeu 



Avertissement : les prix des programmes decrits sont 
lea prix moyens observes, et la lists des revendeurs 
n'eat pas exhaustive. 



. GALAXY (Big Five Software) 
. METEOR (Big Five Software) 
disponibles chez : Graphie, Sideg, Sivea 
Prix moyen : 115F TTC le programme 



Big Five Software est maintenant blen connu pour ses 
jeux aux qualites sonore3 et visuelles incontestable? 
Deux "champions" nous livrent leurs impressions . . . 
Ecoutons d'abord Stephane, 11 ans : 

- Bravo a Big Five pour GALAXY , un tres bon jeu qui, 
malgre son etrange ressemblance avec le "Galaxian" de 
Xavier Ackaouy, se classe parmi les neilleurs 
programmes. De presentation attrayante, 1 'animation 
est aussi amusante qu 'excellente. Le but du Jeu est 
de detruire un maximum de vaisseaux qui plongent sur 
vous. Avec trois "chances" plua une tous les 10.000 
points, vous pouvez depasser les 500.000 apres 
environ deux heures et demie. Pour ma part, j'ai 
atteint H98.000. Mais attention ! A partir de 
200.000 (quand on y arrive !!), les attaques des 
"flag ships", qui ne commencent qu ' a 30.000, 
deviennent lassantes, meme ennuyeuses ... Bon 
programme tout de meme... A vous de Juger. 

Les petlts"trucs" : 

1) Si vous voulez tout de suite avoir affaire aux 




"flag ships attacks", patientez sans tirer quelques 
secondes apres le debut de la partie. 

2) Ne restez Jamais dans les coins. 

3) Si vous voulez avoir 3000 points d'un coup, 
abattez les deux vaisseaux entourant un flag ship, 
puis "descendez" celui-ci. 

4) Lors d'une attaque d'un flag ship, si vous ne 

1' abattez pas, vous vous faites proprement "descendre 



Sur ces paroles qui vous font froid dans le DOS . 
ecoutons un autre combattant de l'espace : Jean- 
Philippe, 15. ans r 




Lu znvahlte>e.uA.A aMi.\)<int iuA la Qalaxie. ! 



EncoKt quatxz naufaagiA de. t'tApacz a mcook-ul . . . 

- METEOR consiste a recueilllr six astronautes 
perdus sur une planete lnconnue. On peut poser son 
engin spatial (une sorte de navette sortant d'un 
gros vaisseau), sur 3 plates-formes qui retrecissent 
au fur et a mesure des voyages. Elles valent res- 
pectivement 100, 200 et 300 points. L' inconvenient 
est qu'il y a de3 meteorites sur votre trajectoire. . . 
et elles augmentent en nombre a chaque passage. 
Votre engin spatial peut aller de drolte a gauche, 
peut ralentir, raals ne peut Jamais revenlr en 
arriere. Au retour , 11 peut accelerer et tirer sur 
les obstacles. Certaines meteorites peuvent se 

metamorphoser en un vaisseau enneml (flag ship), 

qui peut valoir de 100 a 2000 points si on le 
descend . 

II est deconsellle de se poser sur les meteorites, 
sur le sol fen dehors des plates-formes) ou de de- 
passer votre engin transporteur , sinon votre navette 
explose en morceaux. Parfois, un nuage apparalt sur 
l'ecran et il est deconsellle d 'aller a sa rencontre! 
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Dossier n°42 .- bureau d'avocats 



"Nous conf ions dorenavant nos creances 
au micro-ordinateur TRS-80 de Tandy, 
qui recupere d'un seul coup 50.000 Fd'honoraires impayes, 

au lieu de 30.000 Festimes!' 



«Nous devons 
songer a proteger 
nGS interets envers 
les clients distraits 
ou les cas litigieux. 
Comment etre vigi- 
lant? Nous suivions 
chacun nos affaires 
sur un fichier 
manuel: provisions 
des clients, creances, 
dettes diverses et 
cloture des dossiers. 
Avec beaucoup de 
temps et de rigueur 
on peut se contenter 
d'un tel systeme. 
Mais il taut bien 
avouer que I'argent 
nous glissait entre les doigts. 
Nous avons decide de regler 
nos comptes rapidement et 
au plus juste. 

Comment ? Le TRS-80 de 
Tandy a pratiquement recu- 
pere le double des honoraires 
impayes que nous avions 
estimes. ..lis 'es t amorti par 
la meme occasion ». 




Tandy apporta a ce bu- 
reau d'avocats la solution qui 
s'imposait: un micro- ordi- 
nateur destine a toutes les 
taches administratives, 
commerciales et comptables. 
Grace a son programme de 
gestion defichiers, le TRS-80 
indique instantanement, 
sans erreur, le montant des 
creances, leurs dates 
d'ccheance, et personnalise 
automatiquement les lettres 



de rappel. 

C'est un outil 
simple d'utilisation, 
parfaitement adapte 
a toutes activites 
personnellesoupro- 
fessionnelles. Tandy 
est le leader du 
marche de la micro- 
informatique. Nos 
TRS-80 torment la 
gamme la plus per- 
formantedesmicro- 
ordinateurs. Ilssont 
rapides, fiables, et 
d'un prix accessible. 
Nous mettons a 
votre disposition un 
reseau de distribu- 
tion qui s'etend de jour en 
jour, «couple»a une orga- 
nisation mondialement 
reconnue. 

TRS-80, une gamme de 
micro-ordinateurs a 
partirde 4.990 FTVA 
de 17,60% incluse. 
Avec un large 
eventail de 
logiciels. 



Tandu 

TPS-80 



The biggest name in little computers 




utilitaire. 



La trace pas a pas 
en BASIC 



L'ordre TRON du BASIC Level II permet de suivre 
ligne par ligne 1' execution d'un programme BASIC. 
Cette fonctlon, blen que tres utile, presente 
quelques inconvenients : 

- elle detruit l'ordonnancement de l'ecran prevu 
par votre programme, 

- la trace peut se derouler si rapidement qu'une 
partie des numeros de ligne affiches disparait 
vers le haut, 

- il ne reste paa de trace ecrite du test, 

- il n'est pas possible d'executer le programme 
ligne par ligne pour pouvoir lister, le cas 
echeant , le contenu de certaines variables. 

La petite routine assembleur ci-dessous appelee 
STEP, remedie a ces inconvenients. Elle permet la 
sortie sur l'imprimante des numeros des lignes 
executees, l 1 execution ligne par ligne et 1' impres- 
sion des variables dont on desire connaltre la 
valeur, sans modifier le contenu initial de l'ecran. 

Mlse en oeuvre 



Lancer STEP sous DOS ou par la commande "system", 
en n'oubliant pas de specifier une valeur de 
protection memoire : 

- version 16K, memory size = 32510 

- version 32K, meiory size = 48891 

- version 18K, memory size = 65278 

A partir de cet instant, la routine est chargee 
mais non-activee. Elle ne fonctionnera que lorsque 
la fonctlon TRON sera appelee. 

Si vous desirez la trace complete du programme, 
tapez TRON avant RUN. 

Si vous voulez seulement tracer une portion de votre 
programme, placez TRON et TROFF aux endroits 
adequats . 

Tant que TRON est actif , les numeros de ligne ordi- 
nairement destines a l'ecran sont envoyes vers 
1 Mmprimante sous leur forme habituelle <nnnn>. 
Le programme s'arrete avant 1' execution de chaque 
ligne. Pour executer la ligne suivante, appuyer sur 
SHIFT. Des le relachement de cette touche, la ligne 
sera executee, et si TRON est tou jours actif, le 
numero de la prochaine ligne a traiter sera 
imprime. 



Pour verifier le contenu d'une variable, 11 suffit 
d'inclure dans le programme des PRINT (affichage 
sur l'ecran) ou des LPRINT (affichage sur l'impri- 
mante), aux endroits voulus. 

Pour sortir prematurement du pas a pas (retour au 
BASIC), appuyer sur SHIFT et BREAK, puis relacher 
SHIFT. 

Restriction 



Corame cette routine est activee par une tentative 
d' affichage du < precedant le numero de ligne 
genere par TRON, il ne faut pas que le programme 
affiche lui-meme ce caractere, a moins que l'effet 
correspondant ne soit vralment desire. 



Specifications 



Cette routine est prevue pour une imprimante avec 
avancement automatique du papier (Line Feed) apres 
retour chariot. Si vous constatez que votre impri- 
mante ecrit tout sur la raeme ligne, ajoutez les 
ordres suivants : 



392 
391 
396 



CALL TEST 

LD A.OAH 

LD (37E8H),A 



La version assembleur ci-dessous a ete prevue pour 
une memoire de 48K. Pour ceu>. qui possedent un 
assembleur mais moins de memoire, il suffit de 
modifier la valeur ORG en consequence. 
En 1 'absence d 'assembleur , 11 est aussi possible 
au moyen des utilitaires DEBUG ou TBUG, d'entrer 
les codes tiexadecimaux figurant a gauche du listing. 



Restent ceux qui n'ont ni 
mais beaucoup de courage 
les valeurs hexadecimales 
par un programme BASIC en 
moins que vous ne vouliez 
qui vous permette d'edite 
dircotoment en BASIC et d 
cas, dommage que vous n'a 
vous aider a sa mise au p 



assembleur ni moniteur, 
. . . Vous pouvez traduire 
en decimal et les entrer 
"POKant" des DATA. A 
ecrire un petit programme 
r des routines assembleur 
e leo oauvegarder. Dana ce 
yez pas encore STEP pour 
oint ! 



.Wolfgang Lauter 
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00001 


? TRACE 


BASIC 


PAS-A-PAS SUR IMPRIMANTE 






00002 


! COPYRIGHT TRACE ET W. LAUTER 








00003 


1 








FFOO 




00010 




ORG 


OFFOOH 


i Adresse debut 


FFOO 


00 


00020 


FLAG 


DEFB 





; Indicateur imprimante 


FF01 


00 


00030 


ARES 


DEFB 





! Sauve accu A 


FF02 


00 


00040 


CTR 


DEFB 





" Compteur fin de liSne 


FF03 


2A1E40 


00050 


INIT 


LD 


HL»(401EH) 


; Adr driver scran 


FF06 


2227FF 


00060 




LD 


(0UT+-1) ;HL 


! dans Out + 1 


FFO? 


2110FF 


00070 




LD 


HL?DEB 


Adr debut de STEP 


FFOC 


221E40 


00080 




LD 


(401EH) ?HL 


■ = nouvelle adr ecran 


FFOF 


C9 


00090 




RET 




retour BASIC ou DOS 


FF10 


3A1B41 


00100 


DEB 


LD 


A; (411BH) 


, Flas TRON/TROFF 


FF13 


FEOO 


0D110 




CP 





Voir s i=0 


FF15 


280F 


00120 




JR 


Z?OUT 


Si oui? pas de trace 


FF17 


79 


00130 




LD 


A;C 


carac a afficher 


FF18 


3201FF 


0D140 




LD 


(ARES) >A 


Sauvesarde 


FF1B 


FE3C 


0D150 




CP 


3CH 


Voir si < 


FF1D 


280B 


00160 




JR 


Z;SETF 


Si oui 7 sauter 


FF1F 


3A00FF 


00170 




LD 


A?(FLAG) 


Indie impression 


FF22 


FEOO 


0D180 




CP 





Voir si =0 


FF24 


2007 


00190 




JR 


NZjPRINT 


Sinon; sauter 


FF26 


CDOOOO 


00200 


OUT 


CALL 





Driver ecran normal 


FF29 


C9 


00210 




RET 




retour BASIC 


FF2A 


3200FF 


00220 


SETF 


LD 


(FLAG) 7 A 


A --> FlaS 


FF2D 


CD73FF 


00230 


PRINT 


CALL 


TEST 


Appel test 


FF3Q 


3A02FF 


00240 




LD 


A;(CTR) 


Compteur 1 i sne -> A 


FF33 


C601 


00250 




ADD 


A;l 


A=A+1 


FF35 


3202FF 


00260 




LD 


(CTR) ;A 


Nouveau compteur 


FF38 


3A01FF 


00270 




LD 


A» (ARES) 


Carac a sortir 


FF3B 


32E837 


00280 




LD 


(37ESH) >A 


Impr i mer 


FF3E 


FE3E 


00290 




CP 


3EH 


Vo i r si > 


FF40 


CO 


00300 




RET 


NZ 


Sinon* retour BASIC 


FF41 


3E00 


00310 




LD 


A?0 


ft=0 


FF43 


3200FF 


00320 




LD 


(FLAG) ?A 


Flag = 


FF46 


3A02FF 


00330 




LD 


A? (CTR) 


A-Comrteur liene 


FF49 


C601 


00340 




ADD 


A?l 


A = A+1 


FF4B 


FE54 


00350 




CP 


54H 


A = 79 ? 


FF4D 


380A 


00360 




JR 


C;STOR 


Sauter si < 


FF4F 


CD73FF 


00370 




CALL 


TEST 


Appel test 


FF52 


3E0D 


00380 




LD 


A?QDH 


A-retour chariot 


FF54 


32E837 


00390 




LD 


(37E8H) ?A 


envoi imprimante 


FF57 


3E00 


00400 




LD 


A»0 


A=0 


FF59 


3202FF 


00410 


STOR 


LD 


(CTR)?A 


Compteur 1 isne=0 


FF5C 


3A8038 


00420 


WAIT 


LD 


A; (3S80H) 


Indicateur SHIFT 


FF5F 


FE01 


00430 




CP 


1 


Voir si = 1 


FF61 


20F9 


00440 




JR 


MZ;WAIT 


Sinon 7 boucle 


FF63 


3E7F 


00450 




LD 


A?7FH 


A=valeur delai 


FF65 


D601 


00460 


WAIT1 


SUB 


1 


A=A-1 


FF67 


FEOO 


00470 




CP 





Voir si A=0 


FF69 


20FA 


00480 




JR 


MZ7WAITI 


Sinon? boucle delai 


FF6B 


3A8038 


00490 


WAIT2 


LD 


A7O88OH) 


Indicateur SHIFT 


FF6E 


FEOO 


00500 




CP 





Voir si = 


FF70 


C8 


00510 




RET 


Z 


Si oui 7 retour BASIC 


FF71 


18F8 


00520 




JR 


WAIT2 


Reboucler 


FF73 


3AE837 


00530 


TEST 


LD 


A7<37E8H) 


A=temoin sortie imp 


FF76 


CB7F 


00540 




BIT 


77A 


Voir si bit 7=1 


FF78 


20F9 


00550 




JR 


NZ7TEST 


Sinon? attendre (BUSY) 


FF7A 


C9 


00560 




RET 




Retour BASIC 


FF03 




00570 




END 


INIT 




OOOOO TOTAL 


ERRORS 










32906 TEXT 


AREA BYTES LEFT 
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Un programme 
pour faire parler 

votre ordinateur 



. DIGITAL TALKER 
Apparat Inc , Denver USA 
disponible aux USA seulement 
Prix port compris : 38.75$ 



Ce programme extraordinaire n'est ajtre qu'un 
synthetiseur vocal, - rien que cela ! - ne necessi- 
tant pour tout dispositif materiel qu'un banal 
amplif icateur relie a la sortie cassette du TRS-80 . . . 
C'est un programme au format binaire (mais contenant 
toutefols un peu de BASIC bien cache...), fourni au 
choix sur cassette ou disquette. Notre version, sur 
disquette, se charge sous DOS par : BOICE (c'est le 
nom du Monsieur qui a ecrit le programme...). 




>^ 



Apres affichage du titre, le programme est en attente 
clavier. Alore on appuic timidement sur la touche 

"1" et l'on entend une voix legerement enrouee (et 
meme un peu asthmatique !) qui dit "OINE"... C'est 
tres surprenant, alors on continue : "TWOU" . . . 
Chaque chlffre composant un nombre quelconque est 
ainsi prononce. II eat alors possible de f rapper le 
signe de l'une des quatre operations arithmetiques 
(+,-,* ou /) suivi d ' un second nombre. Apres appui 
sur la touche "enter", le programme "prononce" le 
mot "EQUAL" ainsi que lea chiffres du resultat... et 
en double precision, a'll vous plait ! 
Le vocabulaire est limite aux dix chiffres, au point 
decimal, aux quatre operateurs et au signe egal (ce 
n'est deja pas si mal). Certains mots ne sont pas 
tou jours tres comprehensibles meme s'ils sont pro- 
nonces avec 1' accent de Denver, mais le resultat 
est aesez otupefiant. Bravo Monsieur Doice ! La 
documentation (une simple page de mise en oeuvre) 
nous precise que nous devrions bientot recevoir des 
exemples d'application (horloge parlante ?) 



II LOGAWAL 



b! 



quatre ans d'experlence dans le 
logiclel pour mlcro-ordlnateurs 



. Henri Frere 



LOGICIELS POUR MICRO 
ORDINATEURS TOURNANT 
SOUS CP/M (Allot, Cromemco. 
Digital Microsystems, DSE, 
Dynabyte. Pcrtec. Tandy Mod 
II, TEI, Zenith-Heathklt, etc..) 

WALCORE: Programme 

conversational de gestlon de 
fichiers. A la (ois tres perfor- 
mant et dune grande facilite 
d'emplol. Cles d'acces instanta- 
ne. Tris rapides. Chaque tiche 
peut contenir jusqu'a 500 carac- 
teres et 25 informations (nume- 
riques. alphanumeriques. resul- 
tats de calculs internes, dates). 
2.400,- FF 

WORD-STAR: Le programmede 
traitement de textes le plus re- 
pute. Contlent toutes les tonc- 
tions habltuelles d'edition et 
bien d'autres. Manuel en fran- 
cais. 3.400,- FF 

SUPER-SORT I: Programme de 
tri tres evolue. Tri possible sur 
plusieurs fichiers, avec plu- 
sieurs cles et avec exclusions. 
1,800,- FF 

CALCSTAR: " 

Gestion de tableaux financiers, 
statistiques. etc.. Calculs en 
chaine. simulations... Peut etre 

combine avec WordStar. 

1.950,- FF 

COMPILATEUR BASIC MICRO- 
SOFT - Version 5.3: Compatible 
avec Basic-80 Vitesse d'execu- 
tion des programmes trois a 
trente fois plus grande. Instruc- 
tions CHAIN et COMMON. 
Comprend MACRO-80. 

2.400,- FF 

CBASIC 2: Semi-compilateur 
BASIC. Necessalre pour ('utili- 
sation rte nombreux program- 
mes d'application. 1.100,- FF 

BASIC-80, COBOL-80, PASCAL 
-80, FORTRAN-80, MACRO-80, 
EDIT-80, SBASIC. PEACHTREE 
INVENTORY, etc... 



LOGICIELS POUR TRS-80 
MODEL I 

NEWDOS-80: Systemed'explol- 
tatlon tres puissant compatible 
TRS-DOS. Possibility c'usage 
simultane de lecteurs de dis- 
ques 35, 40, 77 pistes. Nombreu- 
ses tonctions BASIC et DOS 
supplementaires. 1.250 FF 

COMPILATEUR BASIC TRS- 
DOS MICROSOFT: Fonctionne 
sous TRS-DOS. Compatible 
BASIC TRS-80 et BASIC-80 5.0. 
Vitesse d'executlon des pro- 
grammes trois a trente fois plus 
grande. 1.550,- FF 

WAL D-B: Programme conver- 
satlonnel de gestion de fichiers. 
Tri et selection sur tous les cri- 
teres. Sortie ecran ou Impriman- 
te (tableaux ou etiquettes). 

850,- FF 

RSM, GSF. BASIC LEVEL III. 
ELECTRIC PENCIL. SYSTEM 
DOCTOR. INFINITE BASIC, 
FORTRAN. WAL-FE, CP^M. etc. 



LOGICIELS POUR TRS-B0 
MODEL II 

CP/M 2.24 LIFEBOAT: Systems 
d'exploitation universe! Accesa 
plusieurs centaines de pro- 
grammes. Version europeenne 
(50 Hz). 1.800.- FF 

RSM: Programme moniteur. 
Acces a la memoire et aux sec- 
teurs-disques. Desassembleur 
490.- FF 

MOO II UTILITY PACKAGE: 

Facilites supplementaires pour 
le TRS-DOS. Back-ups verifies 
acceleres Sauvetage des don- 
nees d'une disquette endomma- 
gee 910.- FF 

WALCORE, COMPILATEUR 
BASIC, GSF, DSM, BASIC 
CROSS REFERENCE UTILITY, 
etc... 



MATERIEL 

Distributeur officiel de: 

ZENITH-HEATHKIT: ordinateurs et terminaux a clavier A2ERTY 
avec lettres accentuees. 

DIGITAL MICROSYSTEMS: les micro-ordinateurs haut de 
gamme (multiprog'ammatlon). 

DIGITAL SYSTEMS EUROPE: le meilleur rapport qualite-piix 



Les programmes et materiels presentes sont extraits de nos 

cinq catalogues dlsponibles sur demande: 

logiciels pour TRS-80 MOD I (1), TRS-80 MOD II (2), 

TRS-80 MOD III (3), CP/M (4), materiel (5). 

Tous nos logiciels peuvent etre achates par correspondance. 
Prix hors taxes modifiables sans preavls. 



LOGAWAL - EUROPE 

200, avenue W. Churchll 
bte 22 - 1180Bruxelles 
Belgique 

Tel.: (32 2)347.47.06 



LOGAWAL - U.S.A. 

San Francisco 
Californie 

Tous logiciels americalns pour 
detai Hants europeens. 
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professionnel 



LABOMINABLE 
IVIODELt 1 



OES NEIGES 



a <a a 




Qui a rttt que les ordinateura lndividuels etaient 
surtout utilises pour lea jeux ? lis peuvent aussi 
avoir des utilisations professionnelles, telle celle 
dont Je vais vous parler ici : la gestion de mon 
magastn de location de skis, situe dans les Hautes 
Pyrenees au Pla d'Adet. 

Lorsque les clients louent du materiel pour faire 
du ski , un certain nombre de problemes peuvent se 
presenter, comme par exemple : 

- les clients arrivent tous en meme temps ... et 
repart«nt de meme ; l'attente moyenne est generale- 
aent de l'ordre de vingt minutes, mais depuis que 
j'utilise un ordinateur, cette attente a ete reduite 
a six minutes. 

- les factures des clients comportent parfois des 
erreurs inevitables dues a la bousculade ; 1' ordina- 
teur a permls de supprlmer ces erreurs. 

- quelques clients contestaient souvent de bonne foi , 
la duree du sejour, se trompant sur la date de 
depart de la location ; Ce probleme a ete elimine : 
l'autorite de la chose ecrite ... par un ordinateur 
est un fait. 

Pour Le loueur de materiel, outre les difficultes 
evoquees ci-dessus, des problemes complementaires 
se po3ent. Les taches repetitives de facturation 
sont lassantes, car il Taut pour chaque article 
calculer un prix tenant compte de la duree de loca- 
tion ( bareme degresslf) et de la categorie du mate- 
riel. A la fin de la aaioon, il eot necessaire de 

reprendre les doubles de toutes les factures, et de 
reporter sur la flche de chaque article, le nombre 
de Jours d "utilisation. Cette derniere tache a pour 
but d'optimiser le pare de location en permettant 
d'avoir dans chaque taille de skis ou pointure de 
chaussures, un nombre d' articles proportionnel a la 
duree d'utilisation de cette taille nu de cette poin- 
ture . 

L'ordlnateur resoud tous ces problemes. 

En pratique, les choses se passent de la facon sul- 
vante : Quand le client a cholsi son materiel, on 
tape sur le clavier de l'ordlnateur le nom et le 
prenom du client, ainsi que les numeros des articles 



qu'il loue. L'ordlnateur calcule er.suite les arrhes 
correspondant a la moitie du cout total de la loca- 
tion, pour la duree prevue par le client. L'irapri- 
mante sort alors un "bon de loeatien" nominatif , qui 
comporte numeros et descriptions du materiel , date et 
heure de sortie, et arrhes versees, 3'il y a lieu. 
Le uon se termine par un message d'accuell et des 
informations diverses. En trois a cinq secondea, ces 
renseignements sont classes dans les fichiers sur 
disquette, et 1' ordinateur est pret pour le client 
suivant. 

Lorsquele client ramene son materiel, il suffit de 
frapper les premieres lettres de son nom. S'il y a 
homonymie , tous les nom3 commencant par ces lettres 
apparaissent sur l'ecran, precedes d'un numero 
d'ordre. La fiche client est ensuite afflchee et la 
facture imprimee. Elle comporte les numeros et des- 
criptions du materiel, la date et 1' heure de sortie, 
eel les du retour, la duree et le prix de chaque 
article, le total, les arrhes versees et le solde 
du. Un message modifiable a volonte termine la 
facture. Des ce moment, les compteurs des articles 
venant d'etre loues sont incrementes du nombre de 
jours de sortie et tous les renseignements finan- 
ciers sont enregistres en vue de 1 'elaboration du 
journal de caisse. Enfin, le fichier client est mis 
a jour (client solde). 

II y a bien entendu des cas particuliers, et nous en 
avons prevu un certain nombre, comme par exemple: 

retour d'une par tie seu lament du materiel, avec ou 
sana facturation partielle ; tulercnce dans lea heu- 
res de sortie ou de retour du materiel (par exemple 
pour un client prenant son materiel a 17 heures, la 
location comptable ne commence que le lendemain) ; 
possibility pour le client louant cu materiel, de 
placer ses achats sur - compte ; possibility de sortir 
un etat du compte a tout instant ; f onctionnement de 
l'ordlnateur en caisse enregistreuse a 12 registres, 
pour leo ventea aculea. Ont ete prevuo egalenmnt les 
controles classiques de saisie d 'information : date 
et heure d' initialisation, sommes cepassant un cer- 
tain montant , etc... 



A la fin de la journee, 11 y a impression du journal 
de caisse, puis reorganisation des fichiers, e'est- 
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a-dlre transfert des fichiers d'une disquette sur 
une autre avec, au passage, elimination des clients 
aoldes, lmpreasicn d'une sauvegarde sur papier de 
tout le fichler client par ordre alphabetique, mlse 
a Jour de tous les compteurs. 

Des programmes annexes perraettent de faire des ope- 
rations statlstiques, telles que controler les ro- 
tations et tracer lea histogrammes de frequence de 
la duree de location en fonction dea pointures de 
chaussures ou taille de skis. Ceci ameliore ^opti- 
misation du stock comme indique plus haut . 

Le programme a ete ecrlt en BASIC classique ( inter- 
prets ). Pour en augmenter la vitess* d' execution, 11 
a ensuite ete compile avec le compiLateur BASIC de 
Microsoft. Le SED (Systeme d' Exploration de Disquet- 
tes) utilise est NEWDOS80 version 2. 

Le materiel se decompose ainsi : modele 1 avec 48K 
octets, deux unites de minidisquettes Pertec 13 cm 
et une imprimante Tekelec 8300 P, bi-directionnelle 
non-optimisee, fcnctionnant a 125 caracteres par 
second e. 

Naturellement, quelques difricultes ont ete ren- 
contrees, et heureusement resolues. En periode de 
pointe par exemple, le systeme fonctionne Jusqu'a 
11 heures par Jour, ce qui amene un echauf fement des 
unites de disquettes et des lectures/ecrltures 
parfois diff idles. Un ventilateur de 20 watts a 
resolu le probleme. Les parasites dj courant secteur 
out egalement occaslonne de nombreux ennuis : 
desordre dans le programme resident et, plus grave , 
effacement des fichlers si les parasites survlennent 
pendant une ecriture sur disquette. Apres plusieurs 
essais infructueux, un gros f litre Siemens, dans une 
gamme de frequences inferieures a 1000 hertz, semble 
convenir. De mauvais contacts au niveau des connec- 
teurs reliant 1' unite centrale du chassis de 1' inter- 
face d'expanoion occoalonnalent eux auasi de gros 
soucls. Ces deux connecteurs ont ete elimines, et le 
cable a ete soude aux deux extremites. Malgre tout, 
des messages "I/O ERROR" ou "DIRECTORY READ ERROR", 
rares et Inexpllcables, etalent encore constates. 

Avec l'alde d'un ami, j'ai finalement installe un 
"DATA SEPARATOR" dans 1' interface d' extension, et les 
resultats sont exsellents. 

A ma connaissance, ces problemes au deraeurant faci- 
les a resoudre, ne ront pas l'objet de conseils ou 
de recommandations de la part des inportateurs ou 
fabricants des materiels en cause, ce qui est bien 
domraage . 

Les problemes que j'ai encore a resoudre sont : la 
relative lenteur de 1 ' imprimante, du fait qu'elle 
n'est pas optlmlsee et qu'elle ne coraporte pas un 
"tampon" surflsanuient grand ; les coupures de cou- 
rant, rares et courtes heureusement dans ma station 
(le secteur descend parfois a 50 volts !). 



En conclusion, bien que l'ordinateur choisi ne soit 
pas de type professlonnel , l'experlence montre qu'll 
peut le devenir moyennant quelques adjonctions in- 
dispensables. Si l'on veut bien se plier a la dis- 
cipline qu' impose 1' informatique dans la facon de 
travailler, l'ordinateur fait gagner un temps pre- 
cieux au fournisseur comme aux clients (et l'on salt 
combien coute l'heure de vacances aux sports d'hiverj 
leur delivre des factures exactes et que l'on ne 
conteste pas. Enfin, 11 permet au magasin U'optlml3er 
sa gestion, ce qui est une source tout a la fois de 
profit et de satisfactions intellectuelles. 



Jean-Philippe Maquaire 



le prochain numero 



TRACE 



sera disponible 
mi-avril 82 



pour 
mieux utiliser votre ordinateur 



abonnez-vous 

ou commandez le prochain numero 
en utilisant le bon ci-dessous 



BON DE COMMANDE 

a retourner a TRACE, 8, rue St-Marc, 
75002 PARIS 



Nom :_ 



Profession :. 



Adresse :„ 



Code postal :_ 



Ville 



Pays :_ 



D Je desire recevoir le C Je desire m'abon- 



numero 2 de TRACE 
(France 25 FF ; Bel- 
glaue 170FB; 
Suisse 1 1 FS; 
Canada 6.50$; 
Etranger 30 FF). 



ner a TRACE pour 1 
an, 4 numeros, en 
beneflciant de votre 
tarif de lancement 
(France 75 FF ; Bel- 
glque 500FB; 
Suisse 33FS; 
Canada 20$ ; Etran- 
ger 90 FF). 



□ Ci-joint mon reglement (indispensable). 
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pour vos enfants 




Apprendre les 4 



operations 



pilotant 



une fusee 



Ce Jeu educatlf est destine a exercer les "petits" 
au calcul mental sur les tables de 1 a 10, en diri- 
geant une fusee vers la case contenant la bonne 
reponse. 

Utilisation 



1 - Choisir 1 'operation voulue : addition, sous- 
traction, multiplication, division, ou l'une des 
quatre operations au ha sard (?). 

2 - Choisir la table voulue de 1 a 10, ou l'une des 
tables au ha sard (?). 

3 - Choisir le delai de reponse, variant ce lent 
(Da rapide (10), ou l"un de ces delais au 
hasard ( ? ) . 

4 - ClOlair la dlfficulte de ' a 1, (questions et 
reponaes plus ou moins dans le desordre), ou l'une 
de cea quatre difficultes au hasard (?). 

5 - Rapondre aux dix questions successives en 
guidant la fusee dans la case contenant la reponse 
supposee, a l'aide des touches marquees d'une 
flecha : 

-> et 4— pour diriger la fusee 

•f pour lancer la fusee 
Description du programme 



LIGNES 



60-370 



'190-660 



670-680 
690-870 



FONCTION 



REMARQUE 



Ce sent les menus offerts 
pour le Jeu. 



Dessln des cases conte- 
nant len reponsos ot 
rempLi.-itige des cases 
avec les reponses. 
Ecriture de la question, 
Bouclc- principale du 
programme : 

- decompte du numbre de 
tours (10), 



Si la reponse 
est ? on 
c ho Is it au 
hasard. 



- comptabilisation du delai 
de reponse et affichage, 

- decollate de la fusee r 

- direction de la fusee par 
les touches, 

- affichage du score. 



kous -programmes 



10-40 Gestlon du clavier pour 

simuler la repetition 
automatique. 

380-480 Distribution au hasard 
de 10 nombres donnes. 



960- 1060 Calcul de 1' impact 

de la fusee dans les 
cases reponses. 



1100-1230 Affichage du score et 

question pour continuer 
ou non le Jeu. 



L' octet 14591 
permet de savolr 
si une touohe 
est enfoncee. 
Si une case au 
hasard est 
libre, on y met 
le nombre sui- 
vant . 

Avec l'adresse 
d'arrivee de 
la fusee, on 
regarde le 
nombre. 



Remarques genera les 



Ce programme de 123 lignes a necessite 2 week-ends 
de travail (soit 10 heures), grace a la facilite 
d' ecriture du BASIC, englobant 1 'ecriture et la 
raise au point. Cela represente environ 98 lignes 
par Jour, soit a peu pres une Vitesse dix fois 
superleure a la Vitesse moyenne d' ecriture en 
COBOL. 

Bien que tion structure et ecrlt sans organigramme , 
ce programme a ete mis au point facilement en uti- 
lisant la methode iterative : 

1) ecriture d'un group*? d ' instructions (une diaaine 
environ), 

2) essai immediati 

3) correctionsj 

4) retour a 2) Jusqu'a fonctionneraent correct. 



. Dominique Deminiere 



22 
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1 Apprendre les tables en conduisant une fusge...! 

2 ' Copyright Trace ei Domini sue Deminiere 
3 

10 G0T06O 

20 Ki$ = IIMKEY$:IF LEN(K1$)<>0 THEN K$=K 1$ : K=ASC ( K$ ) 

30 IF PEEK(14591)=0 THEN K$="":K=0 

40 RETURN 

50 FOR X=l TO 101 FOR Y=l TO 6: PRINT 3 ( X- 1 > *6 + Y+ 1 ? CHR $ ( 64 + X > 

i : NEXT Y?X:RETURN 

60 CLEAR 1000:RAND0M:CLS:PRINT CHR$ ( 23 ) ; : PR INT 

70 PRINT " JEU MATHEMATIQUE ":PRINT 

80 PRINT "1 : CHOISISSEZ LE MENU":PRINT 

90 PRINT "2 : DIRIGEZ LA FUSEE PAR LES FLECHES":PR 

INT 

100 INPUT "3 : VOULEZ VOUS ESSAYER (0 / N)";A$ 

110 IF A$="N" THEN END 

120 CLB:PRINT CHR$ ( 23 ) : PR INT : PR INT "VOULEZ VOUS ADDITIONNER . . . 

( 1 )" 

130 PRINT " SOUSTRAIRE ( 2 .' " 

140 PRINT " MULTIPLIER. ... ( 3 )" 

150 PRINT " DIV1SER ( 4 )" 

160 PRINT " AU HASARD ( ? )" 

170 PRINT 

180 INPUT " VOTRE CHOIX ";A$:PRINT 

190 IF A$="?" THEN A=RND(4): GOTO 210: ELSE A=VAL(A$) 

200 IF A<1 OR A>4 THEN GOTO 60 

210 PRINT 37047""; 

220 PRINT " TABLE CHOISIE (1 A 10)" 

230 PRINT " TOUTES LES TABLES ( ? ) " 

240 PRINT 

250 INPUT " VOTRE CHOIX ";B$:IF B$="?" THEN B=RND(1 

0) ELSE B=VAL<B$) 

260 IF B<1 OR B>11 THEN GOTO 210 

270 CLS: PRINT CHR$(23) ; 
280 PRINT 30," VITESSE LENT / RAPIDE.d A 10)": 

290 PRINT " AU HASARD ( ? ) " : PR INT : PR INT 

300 INPUT " VOTRE CHOIX ";V$: IF V$="?" THEN V=RND(10>: 

ELSE V=VAL(V$) 

310 IF V<1 OR VMQ THEN GOTO 270 

320 PRINT 33847""; 

330 PRINT " FACILE / DUR-DUR (1 A 4)": 

340 PRINT " AU HASARD ( ? ) " : PR INT : PR INT 

350 INPUT " VOTRE CHOIX ";D$:IF D$="?" THEN D=RND(4):G 

OTO 490:ELSE D=VAL(D$) 

360 IF D<1 OR D>4 THEN GOTO 320 

370 GOTO 490 

380 REM ******************* DISTRIBUTION AU HASARD **** 

390 FOR X=l TO 10: A( X ) =0 : C ( X ) =0 : NEXT X 

400 FOR X=l TO 10 

410 Y=RND(1Q> 

420 IF C$="C" THEN GOTO 450 

430 IF A(Y)<>0 THEN 410 

440 A(Y)=A1(X) : A3(Y)=A2(X) : GOTO 457 

450 IF C(Y)<>0 THEN 410 

455 C(Y)=C1(X) : C3(Y)=C2(X) 

457 NEXT X 

460 FOR X=l TO 10 

470 IF C$="C" THEN Cl< X)=C(X) : C2(X)=C3(X) ELSE Al(X)=AiX> : 

A2(X)=A3(X) 

480 NEXT X : RETURN 
490 CLS: REM *********##**#*»*.****.».£cp> j f ijre; j-,rs CASES 
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5DD FOR X=2 TO 194 STEP 192 

510 PRINT aXfSTRING*(60jCHRt(140) ) 5 :NEXT X 

520 FOR X = 66 TO 126 STEP 6: PRINT 3X i CHR* < 149 ) ! : NEXT X 

530 FOR X=130 TO 190 STEP 6: PRINT 3X ? CHR* i 149 ) 5 : NEXT X 

540 FOR X=l TO 10 

550 IF A>2 GOTO 590 

560 REM ************* + ET - 

570 A(X)=B+X: IF A=l THEN Al ( X ) =A ( X ) : CI ( X ) =X :GOTO 61D 

580 A1(X)=X: C1(X)=A(X): GOTO 610 

590 A(X)=B*X: IF A=3 THEN A1(X)=A(X): C1(X)=X: G0T0610 

600 A1(X)=X: C1(X)=A(X): G0T0610 

610 A2(X)=X:C2(X)=X:NEXT X 

620 IF D>2 THEN C*="": GOSUB 380 

630 IF D=2 OR D=4 THEN C$="C": GOSUB 380 

640 REM ********************ECRITURE DES CIBLES 

650 PRINT 364; "";: 

660 FOR X=67 TO 121 STEP 6 : PRINT 3X ? Al ( ( X-60 > /6 ) ; : NEXT X 

670 PRINT 3985 7" FEU SUR > "; 

680 IFA=1 THEN S*="+":S1=B: ELSE IF A=2 THEN S$="-":S2=B: ELSE 

IF A=3 THEN S$="*":S1=B: ELSE S$="/":S2=B 

690 SC=0: REM ********RAZ DU SCORE ********* 

700 GOTO 730 

710 PRINT 3F?CHR$(170) ;CHR*(171) ! :PRINT 3F-63 ? CHR$ ( 149 ) 5 : RETUR 

N 

720 PRINT 3FP ? " ";:PRINT 3FP-63;" ";: RETURN : REM **EFFACE 

730 FOR N=l TO 10:REM ****NBRE DE TOURS 

740 F=923: FP=923: FH=0 : FV=0: BD=956 : BG=897: GOSUB 710 

750 IF A=l THEN S2=C1(N): ELSE IF A=2 THEN S 1=C1 (N ) :ELSE IF A = 

3 THEN S2=C1(N) :ELSE S1=C1(N): 

760 PRINT 310127 SI?" ";S$>" "1S2J 

770 FOR T=25*(ll-V) TO STEP -ii REM ********TEMPORISE 

780 PRINT 39607" ***" ? T 5 "***" i 

790 GOSUB 20: REM ********CLAVIER******* 

800 IF K=0 THEN GOTO 860 

810 IF K=91 THEN GOSUB 890:G0T0 870: REM ******DECOLAGE**»* 

820 IF K<>8 AND K<>9 THEN GOTO 860 

830 IF K=8 THEN FH=-l: ELSE FH = + 1 

840 FP=F: F=F+FH: IF F<BG THEN F=BG:ELSE IF F>BD THEN F=BD 

850 GOSUB 720: GOSUB 710: GOTO 860 

860 NEXT T 

870 NEXT N: REM *********** FIN DES BOUCLES 

880 GOTO 1070 :REM ************ SCORE *********** 

890 FV=-64 

900 FOR H=l TO 10 

910 BG=BG-64:BD=BD-64:FH=0 

920 GOSUB 20: IF K=D GOTO 930: ELSE IF K=8 THEN FH=-l: ELSE IF 

K=9 THEN FH=1 

930 FP=F: F=F+FV+FH: IF F<BG THEN F=BG:ELSE IF F>BD THEN F=BD 

940 GOSUB 720: GOSUB 710 

,950 NEXT H 

960 REM ******* CALCUL DE L IMPACT ******** 

970 FI=INT( (F-252//6) 

980 IF C2(N)OA2(FI) THEN 1060:REM *** TOUCHE**** 

990 SC=SC+l:FOR Z = l TO 3: GOSUB 1000: NEXT Z: GOTO 1060 

1000 FOR X=404 TO 468 STEP 64: PRINT 3X ? STRING$ ( 30; "*") ; : NEXT 

X 

1010 PRINT 3 5347" BRAVO TO U CHE"; 

1020 FOR X=596 TO 660 STEP 64: PRINT 3X ?STR ING$ ( 30 ? "*" > 5 : NEXT X 

1030 FOR X=l TO 10: NEXT X 

1040 FOR X=320 TO 704 STEP 64:PRINT 3X ? STR ING$ ( 60 1 " ");:NEXT X 
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1050 
1060 

1070 
1080 
1090 

1100 
1110 

1120 
1130 

1140 
1150 
1160 

1170 
1180 

1190 

1200 
1210 
1220 
1230 



PRINT 
PRINT 
PRINT " 

PRINT " 
PRINT " 
PRINT " 
ORRECT" 
PRINT 
PRINT 
ER 10 
PRINT 
ETURN 
PRINT " 
PRINT : 
IF A*<>" 
END 



1160? 1170? 1180?li 



RETURN 



FOR X= 1 TO 10: NEXT X: RETURN 
RETURN 

REM** ********* SCORE*********** 

CLS: PRINT CHR$ (23 ) ; : S= 1 1-SC 

ON S GOSUB 1100?1110? 1120? 1130? 1140? 1150 

90? 1200: GOTO 1210 

PRINT "HOURRA !!! 10 SUR 10": RETURN 

" BRAVO *** 9 SUR 10 PRESQUE PARFAIT" 

"FELICITATION = = = 8 SUR 10 === ": RETURN 

" TRES BIEN ### 7 SUR 10 ### ":RETURN 

" PAS MAL »> 6 SUR 10 <«': RETURN 

" CORRECT ... 5 SUR 10 ...": RETURN 

" ?;;4 SUR 10 ? ? ? UN TOUT PETIT EFFORT ET 

RETURN 
"/// 3 SUR 10 /// RECOMMENCEZ A JOUER n t RETURN 
" ??? 2 SUR 10 ??? VOUS AVEZ GAGNE LE DROIT DE 
FOIS": RETURN 
"!!! 1 SUR 10 ! ! ! VOUS DEVEZ REJOUER 100 FOIS 



CE SERA C 



REJOU 



:R 



SUR 10 EXPLOIT RARE 

INPUT "VOULEZ VOUS REJOUER (0 
N" THEN 120 



BRAVO "5 RETURN 

/ N3 ";A$ 



jeu: 




Un programme, 

cinq des, 

six joueurs 




C'est un jeu de des ayant quelques ressemblances 
avec le tarn, et dont nous ne savons pas le nom 
exact. II ae joue avec cinq des, tout au moins dans 
sa version originale. Les regies sort fort simples : 
on lance les cinq des et on observe les resultats. 
Le 1 compte pour 100 points et le 5 pour 50 points. 
Trois des d'une vf.leur identlque (triplet) valent 
100 foi3 cette valeur ( 3 des de 6 valent 600 par 
exemple), avec deux exceptions toutefois : le 
triplet de 1 vaut 1000 points et le triplet de 2 
annule tous les points acquis precedemment . La 
suite (1,2,3,4,5 ou 2,3,1,5,6) vaut 1000 points. 
Toute autre combinaison n'au aucun effet et compte 
pour zero point. 

31 le lancer de des ne donne pas l'une des figures 
exposees ci-dessus, on passe au tour du Joueur 
suivant. Dans le cas contraire, le jeu en cours 
peut se poursuivre (selon la volonte du joueur), 
avec les des non signif icatifs. Dans le cas oil les 
cinq des sont (ou sont devenus) sigrif icatifs, on 
peut en rejouer la totalite et repartir pour un 



nouveau tour. Bien evidemment, les points sont 
cumules. Dans le cas d'un triplet ou d'une suite, 
il est obligatoire de rejouer. Ordinal rement , la 
partie se Joue en 5000 points. 
Tout cela paralt complique tnais le mieux est 
d'apprendre les regies avec le programme .... 
Le programme BASIC decrit ci-deooouo rcopcctc lc3 
regies que nous venons d'expeser et calcule les 
points autcmatiquement . II accepte Jusqu'a 6 
joueurs. Dans le cas ou vous etes trop fatigues 
pour Jouer, il accepte meme de prendre les 
decisions a votre place ... Mais commencez d'abord 
par prendre la decision de frapper la "petite" 
liste du programme au verso ! 



JP du Tillet 
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X 





10 
20 
30 
40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

27D 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 




490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 

700 

^10 



jeu de cirn DES 

COPYRIGHT TRACE ET L'AUTEUR 



CLS 



: PR 
PRIN 



PRINT V 
PRINT "- 
PRINT "- 
PRINT "- 
PRINT " 
PRINT "- 
PRINT "D 
PRINT "d 
INPUT "P 
CLS i RE 
DATA 8 ■ 
FOR X=8 
FOR X=82 
FOR A=l 
SET(XiY) 
PRINT 32 
PRINT 
GOSUB 
GOSUB 
GOSUB 
IF N>6 



INT 310 > "***** JEU DE CINQ DES **-*** 

T : PP1NT : DIM A'. 12) : RANDOM 

aleur des points : " 
1 vaut 100 points- 5 vaut 50 points" 
Une suite 11 a S ou. 2 a 6) vaut 100Q points" 
Un triplet waut 100 fois la valeur des DES sauf" 
le triplet de 1 qui vaut 1000 points" 
Un triplet de 2 annule le total general" 

ans le cas d ' une suite ou d' un triplet) le reste" 

es DES est reJoue* automat i tuement . " 

ret" ; C* 

STORE 
20 ? 32 > -.4 > 56 ? 68 i 82 i 100 

TO 68 : SETIX.4) : SET<Xj9> : NEXT X 
TO 101 : SETIX-4) : SET<Xi9) : NEXT X 

TO 8 : READ X : FOR Y=4 TO 9 
: SET(X + 1;Y ) : NEXT YiA 

69> "Valeur des DES" : PRINT 32957 "Total partiel" 

93? "Joueurs: * tataux!" 





FOR A=l 
INPUT A$ 
PRINT at 

NEXT A 
FOR A=7 
J=J+1 : 

FOR A=l 
A-18+3*J 

GOSUB 67 
IF C»»"N 
R=5 : D= 
1-0 : 3= 
FOR A=l 
PRINT ai 
IF A(V)> 
IF A(V)> 
NEXT A : 
NEXT A : 
IF D»5 A 
680 : CO 
IF 5=0 G 
GOSUB 67 
FOR A=l 
IF 5*2 T 

TO 600 
IF S=l T 
P=P+100* 
R=R-3 : 
P=P+10*A 
IF D=R T 
GOSUB 68 
D=R : IF 
GOSUB 67 
GOSUB 69 
A<6 + J )=A 
GOTO 620 
GOSUB 67 
FOR A*l 
IF A(6+J 
GOSUB 67 
INPUT "U 
CLS : IF 



: INPUT "Nombre de Foints de la pa'-tie" ; Z 

: INPUT "Etes-'-'ous trop fatiaue" pojt Jouer " 

: INPUT "Nombre de joueurs £1 a 6!" 5 N 

R N<=0 GOTO 240 

TO N : GOSUB 670 : PRINT "Noin du Joueur" ! A ! 



FA* 




389+64*A) . A$; : PRINT TAB(22) 

J=0 



0" 



A(A>-0 



NEXT A 




TO 12 : A(A»=0 : NEXT A 

IF J>N THEN J=l 

TO N : PRINT 3387+64*A7" " ! : NEXT ft 

: SET1.67A) : SETI67A+1) : F=0 : P = : GOSUB 680 
: PRINT "On 9 '.'a ?" 5 s GOSUB 690 
" THEN 340 
5 

= F-0 : FOR A-l TO 6 
TO D : V=RND<6> 
28+6*A 7 V; : A i. V > =A < V ) +V 
2*V THEN 3=V 
V THEN 1=1 

FOR A=D+1 TO 6 : PRINT 312S+6*A , " " 5 

D=R : IF R<>5 GOTO 450 
ND 1=0 AND (fiU)=0 OP Ai6)=0) THEN P=P+1000 : GOSUB 
TO 600 
0T0 520 

: PRINT "Bravo... triplet...!" ; 
TO 1000 : NEXT A 
HEN P=0 : A(6+J>=0 : PRINT 
: NEXT A : GOTO 580 
HEN P=P+1000 : GOTO 510 
S 

F=l : A(S)=A<S)-3*S 
(5>+100*A(l> : R=R-A(i)-A(5»/5 
HEN P=0 : GOSUB o80 : GOTO 580 
: IF R=0 THEN R=5 

F=l GOTO 370 
: PRINT "On continue ?"; 
: IF C*="0" GOTO 370 
(6+J/+P : PRINT 3409+64*. J , AI6+J) 



: PRINT "Bravo... une suite ! 
TO 1000 : NEXT A : GOTO 360 
)<Z GOTO 310 

: PRINT "Vive l f e vai n = ueur . . . 
ne autre partie " ; C* 
C*="0" GOTO 130 ELSE END 



.Malhejr 



i i " 



*/.» 



: FOR A=l 





PRINT 9832 7 CHP*'3DI ! 
PRINT 91~0 7 " 



RETURN 
PRINT &170 7 P 5 : 
IF FA*="0" THEN 700 ELSE C*=INKEY$ : IF C*=" 
PRINT C* i : RETURN 

FA=RND<2> : IF FA=1 THEN C*="Q" ELSE C*="N" 
PRINT C* ; : RETURN 



RETURN 
' THEN 6?0 ELSE 
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poquette, 



Ne perdez plus de temps 
pour gerer vos fichiers 



Lea instructions de gestion de fichier ( PRINT # 
et INPUT*) du poquette PC1211 constituent l'un des 
points les plus interessants de cette machine... 
a condition de blen savoir le3 utiliser. 

Quelles sont done leurs proprietes ? 

Les Instructions PRINT# et INPUTS sont toutes deux 
des instructions d 'entree/sortie. L' execution du 
PRINT# provoque une "sortie" de dor.nees dans le 
sens ordlnateur-magnetophone (via 1 'interface) ; 
a 1' inverse, INPUT# provoque une "entree" de 
donnees. Dans la plupart des BASIC, de telles 
instructions ne portent que sur un nombre limite 
de variables, tres exactement toutes celles figurant 
sur la ligne programme. Mais ici, les donnees 
concernees sont toutes les variables dont 1' exis- 
tence est possible (memoire souple), meme si celles- 
cl n'ont pas ete affectees. L'enseoible de toutes 
ces donnees constitue un fichier. Chaque enregistre- 
ment est baptise avec un label qui specif ie le nom 
du fichier : PRINT* "LABEL" . Le nom accompagnant 
1' Instruction INPUTS devra correspondre a ce meme 
label pour que le fichier puisse etre transfere en 
memoire . 

Ces deux instructions peuvent etre suivies d'une 
variable : 

100 PRINT# "LABEL" ; A(26) 

L'execution de la ligne 100 provoquera 1 'enregistre- 
ment du contenu ce la variable A(26) et de TOUTES 
les suivantes. Que vous ecriviez un programme uti- 
lisant une ou plusieurs dizaines de variables, la 
longueur du fichier cree sera la meme. Ce manque 
de souplesse n'araeliore en rien la Vitesse d'exe- 
cution , deja lente, de la machine. 

Mais alors, comment proceder pour enregistrer 
i^niquement le contenu des variables interessantes ? 

Le probleme ne se poserait pas si, de meme que la 
premiere variable, la derniere pouvait etre preciaee 
dans 1 'instruction. II faut en prendre son parti, 
ce n'est pas le cas : par construction, la derniere 
variable est definie comme etant celle dont l'indice 
est le plus eleve possible de la memoire souple. 
C'est done cette constante qui doit servir d'orlgine 
aux indices de variables a enregistrer. 

Mais illustrons ce propos. L'exemple de programme 
ci-dessou3 utilise cette methode pour stocker quatre 
variables. Celles-ci portent les indices X, X-1, 
X-2 et X-3, la variable X contenant le nombre de 
variables dont l'existence est possible. L'execution 
de 1' instruction PRINTS suivie d'une variable dont 
l'indice est egal a X-3, provoque l'enregistrement 
des quatre variables, et d'elles uniquement ... 

Analysons en detail ce programme. Son but est 
d'assurer l'enregistrement ou la lecture-recherche 
d'un compte en banque (menu de la ligne 20). Chaque 
variable dont le contenu est destine a former "le 



richier" parte un indice X D5CR0ISSANT. La valeur 
initiale de X est calculee dans un sous-progranme 

dont le label est "X" (ligne 290). La ligne 303 est 
incomplete : les trois points doivent etre 
remplaces au dernier moment par le nombre de 
memoires disponibles. Cette valeur est obtenue avec 
la commande MEM. J'inslste : il vous faut taper- ces 
trois points a 1 'entree de vof.rp programme, et ne 
les remplacer par la valeur donnee par MEM qu'au 
DERNIER MOMENT : et, blen sur, ne pas oublier de 
changer cette valeur a CHAQUE modification qui 
altere par consequent la valeur de MEM. Si vous 
respectez parfaitement l'ecrlture de l'exemple 
fournl, MEM vous donnera 107. Si ce n'est pas le 
cas, remplacez les trois points par votre propre 
valeur. Le nombre 26 (memoires reservees) est 
ajoute a cette valeur pour obtenir l'indice final. 
L'execution de la ligne 150 a pour but de stocker 
le contenu des quatre variables. 



10 


REM"C0MPTE EN BANQUE" 


20 


INPUT" 


ENREG<1> 0U LECTURE (2)?"; I 


30 


IF 1=2 


GOTO 170 


40 


REM"ENREGISTREMENT DES CHEQUES" 


50 


GOSUB 


"X" 


60 


INPUT" 


YUMER0 DU CHEQUE?"!A<X) 


70 


K = X-1 




80 


INPUT" 


DATE JJMMAA";A(X) 


90 


K = X-1 




100 


INPUT 


"LIBELLE MAXI 7 CAR. :";A*(X) 


110 


X=X-1 




120 


INPUT 


'VALEUR ?"!A(X) 


130 


INPUT 


'CASSETTE PRETE?";B« 


140 


IF B* 


="N0N" GOTO 130 


150 


PRINT»"CHEQUE";A(X> 


160 


GOTO 


20 


170 


REM"LECTURE:RECHERCHE D'UN CHEQUE" 


180 


INPUT 


"NUMER0 DE CHEQUE "iN 


190 


INPUT 


'CASSETTE PRETE?";B$ 


200 


IF B* 


="N0N" GOTO 190 


210 


GOSUB 


"X" i X=X-3 


220 


input#"cheque";a(X) 


230 


IF A(X+3)ON GOTO 220 


240 


PRINT 


'NUMER0";N 


250 


PRINT 


'DATE">A<X+2> 


260 


PRINT 


'LIBELLE"iA$(X+l) 


270 


PRINT 


'VALEUR'SAU) 


280 


GOTO 


20 


290 


"X" : 


REM"INITIALISATI0N DE L'INDICE" 


300 


X=... 


^6 : RETURN 



L'indice X, apres trois decrementations, deflnLt 
d'une part la premiere variable de l'enregistrement 
d'autre part la derniere variable du fichier. II 
convient de remedier a cette petite Inversion avant 
1' operation de lecture. C'est le but de la ligne 
210. 

Ce petit programme a la simple pretention de servir 
d'exemple. II ne deviendra efficace que s'il est 
integre au sein d'un programme plus complet (gestlon 
des comptes du foyer par exemple ) ... A vous de 
Jouer . 
Jean-Pierre Richard 
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utilitaire 



Conversion 

des codes binaires 

en DATA BASIC 



II arrive parfols que l'on veuille incorporer une 
"routine" (un sous -programme) en asserableur dans ur 
progranrae BASIC. Genera lenient, la methode la plus 
simple est de coder en decimal toutes lea donnees 
de cette routine, et de les placer sous forme de 
DATA dans le programme. II suffit ensuite, au moyen 
d'une boucle READ/POKE, ce charger ces donnees en 
memo! re. 



Dans la plupart des cas, la routine aura ete consti- 
tute an moyen de l'editeur /assembieur EDTASM, ou 
tout s Implement entree "a la main" en hexadecimal, 



routine en code machine, mais de donnees en ASCII). 

Au lancement du programme, la premiere ligne de 
l'ecran affiche le message : 

••« BINAIRE -->DATA »*" 

Le programme nous demande le numero que nous voulons 
donner a la premiere ligne de DATA. Repondons 1000 
par exemple. Apres avoir fourni les deux adresses 
de debut (3C00) et de fin (3C3F) de la zone a con- 
verter, le Ilchler portant le norn DATA/DAT est 
constitue et place sur disque. Le voici : 



1000 DATA 32 , 32 7 32 » 32 , 32 ? 32 i 32 ? 32 i 32 ; 32 


1010 DATA 42 7 42 7 42 7 32 7 32 7 32 ; 66 , 32 7 73 7 32 


1020 DATA 78 ; 32 7 65 ; 32 7 73 ; 32 7 82 ; 32 7 69 ; 32 


1030 DATA 32 ; 45 7 45 7 62 7 32 7 32 ? 68 7 32 7 65 7 32 


1040 DATA 84 7 32 7 65 ; 32 7 32 7 32 7 42 7 42 7 42 7 32 


1050 DATA 32 7 32 7 32 7 32 7 32 7 32 7 32 ? 32 7 32 7 32 


1060 DATA 32 7 32 7 32 7 32 



avec les programmes moniteurs T-BUC ou DEBUG. 
Toutefois, lorsque la routine est longue, la tache 
conslstant a coder chaque valeur en decimal devient 
assez penlble. Or, 11 se trouve que les oriinateurs 
sont Justement la pour n.ous eviter les tacl.es pe- 
nibles : il nous faut done proriter d'eux, avant 
qu'ils ne profitent de nous ! 

Le but de ce programme sera de convertir en instruc- 
tions 3ATA, une zone memoire determinee par une ad- 
resse de debut et une adresse de fin, et de placer 
cas DATAs sur disque. Par 1 ' instruction MERGE, 11 
sera ensuite facile d' incorporer les lignes BASIC 
au programme principal. 

Prenons un exemple. Supposons que la zone a traduire 
se trouve comprise entre les adresses memoire 3C00H 
et 3C3FH, et e'est celle-ci que nous allons convertir 
en DATA (dans le cas present, il ne s'agit pas d'une 



Ce fichler peut etre charge en BASIC par la commande 
LOAD "DATA /DAT" ou MERGE "DATA /DAT" si nous voulons 
l'ajouter a un programme existant. II suffit par 
exemple de le completer par : 



10 


CLS 








20 


FOR AD = 


=&H3C00 


TO 


&H3C3F 


30 


READ 


A 






40 


POKE 


AD ? A 






50 


NEXT 








RUN 









et nous verrons notre texte initial apparaitre de 
nouveau sur l'ecran. 
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10 ' PROGRAMME DE CONVERSION DE 


200 


GOTO 130 


BINAIRE EN DATA BASIC 


210 


PRINTtl? 


20 ' COPYRIGHT TRACE ET A. PINAUD 


220 


CLOSE 


30 ' 


230 


PRINT : PRINT "FICHIER SAUVE 


40 CLS 




SOUS LE NOM : DATA/DAT" 


50 PRINT TAB( 10) "*** B I N A I 


240 


PRINT 


R E ~> DATA ***" 


250 


PRINT "CHARGEZ VOTRE PROGRAMME 


60 PRINT : PRINT 




PRINCIPAL PAR 'LOAD' " 


70 INPUT "PREMIER * DE LIGNE DATA 


260 


PRINT : PRINT "PUIS VOS DATA 


"; NL 




PAR 'MERGE' " 


80 PRINT "ADRESSE DEBUT BINAIRE 


270 


PRINT : PRINT : PRINT 


(HEXA)?"; : GOSUB 300 : DD=N 


280 


END 


90 PRINT "ADRESSE FIN BINAIRE 


290 


J 


(HEXA)?"; : GOSUB 300 : FD=N 


300 


' SAISIE ET CONVERSION HEXA — > 


100 LG=FD-DD+1 




DECI 


110 0PEN"0";l7"DATA/DAT" 


305 


1 


120 PRINT#1;NL; "DATA"; 


310 


N=0 : PRINTCHR$(14) 5 


130 PRINT#1;PEEK( I+DD) ; 


320 


A$=INKEY$ : IF A$="" THEN 320 


140 1=1+1 


330 


IF ASC(A$)=13 THEN PRINT : 


150 IF I=LG THEN210 




GOTO 360 


160 IF I/10-INT(I/10)=0 THEN 190 


340 


PRINT A$; : IF A*>"9" THEN 


170 PRINTtl?"?"; 




A$="1"+CHR$(ASC(A$)-17) 


180 GOTO 130 


350 


N=16*N+VAL(A$) : GOTO 320 


190 PRINT#l7CHR$( 13) ; NL+I; "DATA" 


5360 


IF N>32767 THEN N=N-65536 




370 


RETURN 



Ce programme est surtout interessant pour les pos- 
sesseurs de disquettea qui beneficient de la direc- 
tive MERGE. Neanmoins, et apres quelques amenage- 
ments, il peut etre utile aux utilisateura de cas- 
settes, surtout si ceux-cl disposent du programme 



CFETCH (chargement d'un programme cassette a la suite 
d 'un autre) . 



Alain Pinaud 



experience: 



Moi, j'utilise CP/M 



II existe plusieurs versions du celebre SED (programme 
de Systeme d 1 Exploitation de Disquettes) CP/M, adap- 
tees" a la plupart des ordinateurs individuals du 
marche. J'ai equipe mon Modele 2 d'une version speciale 
de CP/M, la version 2.2.5 developpee aux Etats-Unis 
par la societe Cybernetics Inc. 
Pourquoi l'al-Je achete ? Quels avantages offre ce 

3ED par- rapport au TRSDOS fourni en standard avec le 
modele 2 ? 

Eh bien, Je l'ai achete pour deux rei3ons : la pre- 
miere est que Je desire que les programmes que je 
developpe soient transferables facilement sur le 
plus grand nombre possible de machines. Or. CP/M 



est adopte par pratlquement tous les constructeurs 
d' ordinateurs indlviduels bases sur les microproces- 
seurs 8080, 8085 et Z80. C'est-a-dire beaucoup ! 
Vous savez que la structure logicielle des enreglstre- 
ments magnetiques sur une disquette peut etre tres 
variee : Un programme ecrit en BASIC sous TRSDOS et 
sauve sur une disquette initiallaee avec TRSDOS ne 
pourra etre utilise par un ordlnateur fonctionnant 
sous un autre systeme. Ce qui est interessant dans 
CP/M, c'est justement que le support (disquette 8 
pouces simple face, simple densite) tout comme la 
structure logicielle des enregistrements ont ete adop- 
tes par beaucoup de societes, ce qui les place quasi- 
ment au niveau d'un standard. 



TRACE N° 1 — Janvier 82 — 29 



Le Mod-sle 2 possede des disquettes 8 pouces simple 
face double densite mais un utilltaire de CP/M 
permet de creer des disquettes simple face, simple 
densite conf ormes au standard . 



ou peuvent etre stockees des informations en attente 
d 1 entree ou de sortie. Ceci permet une frappe beau- 
coup plus rapide au clavier et des impressions de 
textes alors que se poursuit simultanement 1' execution 
d'un programme. 



La deuxieme ralson de mon cholx est que CP/M 2.2.5 
structure les disquettes en 75 pistes contenant 
8 secteurs de 1024 octets, ce qui fournit 614400 
octets par dlsquette. TRSDOS off re, quant a lui, 
509184 octets par dlsquette. Si on considere la 



Un livre pour debuter 

Un livre pour s'initier a CP/M : 

CP/M Primer , par Stephen M. Murtha et Mitchell Waite, 
publle par Howard W. Sans & Co., 4300 West 62nd St., 
Indianapolis, Indiana 46268, USA. J'ai trouve ce livre 
aux Etats-Unis, et je ne sais pas si l'on peut se le 
procurer en France. Personnellement , je trouve cet 
ouvrage (en anglais of course et helas !) remarquable- 
ment clair. 



Ceux qui programment en assembleur apprecieront la 
possibilite sous TRSDOS d'appeler directement et tres 
facilement des sous-programmes du SED. Une soixantai- 
ne de tels sous programmes, appeles SVC (Supervisor 
Calls, comme dans le SED des gros IBM !) sont claira- 
ment decrits dans la documentation. Pour faire la meme 
chose sous CP/M, il faut se plonger dans une documen- 
tation en anglais plutot confuse, et done d' acces 
nettement plus difficile. 



En conclusion done CP/M offre plus d'espace disque, 
de souplesse d ' adaptation, au prix de quelques in- 
convenlents dus a son age. TRSDOS est plus "moderne", 
beaucoup plus facile a coraprendre et a utiliser, 
grace a son excellente documentation, mais J 'avals 
et J'ai encore besoin de plus de 500K par dlsquette 
et d'une transportabilite aisee. Sur ce dernier point, 



place prise par le systeme et ses utilitaires, 
on s'apercoit que CP/M offre environ 28% d'espace 
disque en plus. C'eat loin d'etre negllgeable quand 
on connait le prix d'un lecteur de disquettes 
supplementaire. 



L' organisation des enreglstrements en grands sec- 
teurs de 1K octets offre un autre avantage : les 
acces disques sont moins nombreux. Or dans 1' exe- 
cution de programmes de gestlon de fichiers, ce 
sont les acces disques qui prennent le plus de 
temps. II y ad'autre part sur CP/M possibilite de 
creer des enreglstrements de longueur superieure a 
256 octets, ce qu'on ne trouve pas sur TRSDOS. 



Ce dernier offre touts fola un avantage que n'a pas 
CP/M : la presence d'un 'Alternate Directory", 
e'est-a-dire d'un second catalogue des fichiers conte- 
nus sur la dlsquette. Ceci multiplie par deux les 
chances de "recuperer" une dlsquette partiellement 
endommagee. 



Pour ce qui est du transfert d' informations depuls 
l'ordinateur Jusqu'a un peripherique ou un autre ordi- 
nateur, on trouve sous C?/M comme sous TRSDOS toutes 
les facilites : modification par logiciel des cadences 
et protocoles de transmission, generation automatique 
des sauts de page pour imprimantes, redefinition des 
codes generes par les touches de fonctlon F1 et 
F2 du clavier, chargement et demarrage automatique 
de programmes a la mise sous tension, modification 

de la vitesse d' acces du lecteur de disquettes, exe- 
cution de sequences de commandes. 



Une astuoe sous CP/M 

On peut, grace au programme utilltaire SET, creer une 
sequence de commandes qui sera automatiquement chargee 
au demarrage, comme cela se fait avec AUTO sous 
TRSDOS. Par exemple, la commande "MBASIC TOTO.BAS" 
verrouillee sur la dlsquette fera qu'a chaque raise 
en route du systeme, l'lnterpreteur MBASIC sera lan- 
ce et ensuite le programme TOTO.BAS sera charge et 
execute. Probleme : Dans MBASIC la seule possibilite 
de revenir sous CP/M est d'executer la commande (ou 
1 ' instruction) SYSTEM. Mais cette commande est 
equivalence a un "depart a chaud" (warm start, 
controle-C sous CP/M). Ce qui va recharger MBASIC, 
TOTO.BAS, etc... Vous ne pourrez done plus Jamais 
sur une telle dlsquette revenir au niveau CP/M et 
done par exemple appeler 1 'utilltaire SET pour mo- 
difier le nom du programme a charger ar,oraatiquement . 
Solution, dangereuse mais qui marche : charger SET 
a partir d'une autre dlsquette CP/M sans demarrage 
automatique de MBASIC. Modifier les commandes a 
executer et changer subrepticement de dlsquette 
avant de sortlr de SET. Normalement CP/M refuse 
d'ecrire sur une disquette sans avoir fait prealab- 
lement un CONTROL C. Mais les parametres de SET sont 
toujours au meme endrolt sur toutes les disquettes 
CP/M, si bien que dans ce cas, le changement de 
disquettes est accepte. Et vous pouvez. de nouveau 
avoir acces a CP/M sur la disquette contenant T0TO . 
BAS. Un conseil toutefois : ne faites pas le test 
suivant : la commande MBASIC TOTO.BAS est donnee 
pour chargement automatique et le programme TOTO.BAS 
ne contlent que 1' instruction : 10 SYSTEM. Cela 
boucle trop vite pour pouvolr s'arreter sans rlen 
casser . 



Un avantage de CP/M : on peut simuler d'autres 
ecrans que celui installe sur le Modele 2, ce qui 
facilite les transferts sur d'autres machines de 
programmes coraportant du semi-graphique ou de la 
gestlon d'ecran. 



Tandy vient de commercialiser un utilltaire permet- 
tant de passer du format TRSDOS au format standard 
IBM mais je n'ai pas encore eu le temps de l'essayer. 
Ce sera pour une prochaine foi3. 



Un enorme avantage de TRSDOS : une magnifique docu- 
mentation en francais. Cn trouve egalement sur 
TRSDOS un "spooler", c'est-a-dlre une zone memoire 



Jean-Francois Poitevin 
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bricolage 




Ameliorez 
votre affichage 



Cette rubrique, comme son nom l'indique, est destinee au bricoleur 
averti sachant utiliser un fer a souder et ayant un mi nimum d' expe- 
rience des circuits logiques. 

Vous avez probablement remarque ces petits traits noirs se depla- 
cant sur l'ecran de votre modele 1, surtout lorsque celui-ci 
contient de nombreuses zones graphiques ? On les remarque surtout 
avec certains jeux comme le "Dancing Demon" par exemple. Certains 
logiciels qui utilisent un curseur clignotant (Scripsit) font 
aussi apparaltre cette anomalie. Sur le Modele 3, ce defaut a ete 
corrige et rassurez-vous, il peut l'etre aussi sur le Modele 1. 

A l'origine, il se manifeste lorsqu'un acces programme dans la me- 
moire video (lecture ou ecriture) s'effectue pendant les temps ou 
celle-ci est sollicitee par le systeme de rafraichissement de 
l'ecran, c'eat-a-dire pendant ce que 1 ' on appelle le "balayage". 
Le remede consiste done a n'autoriser cet acces que pendant les 
retours de balayage du "spot", en "bloquant" Le microprocesseur 
lorsqu'un acces intervient en dehors de ce temps. 
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Trois signaux logiques seront exploites a cette fin : VID* indi- 
quant un acces programme dans la memoire ecran, BLANK donnant le 
depart d'un retour du spot et WAIT* utilise pour bloquer le micro- 
processeur. Un diagramme des tetnps est donne en figure 1. 

Les circuits logiques mis en cause sont representes a la figure 2, 
avant modification. Remarquez les deux points A et B : il faudra 
couper cette liaison pour y intercaler le montage de la figure 3. 
L'endroit precis ou cette coupure doit etre effectuee est repre- 
sente a la figure 4. Cette derniere devrait vous permettre de si- 
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tuer facilement la piste a inciser, sur la plaque "processeur" . 
Assurez-vous que votre modele correspond bien aux indications 
donnees. 

Les coraposants representee par la figure 3 sont des circuits in- 
utilises de votre ordinateur. II faudra prendre soin d'isoler 
leurs entrees qui, a l'origine, sont reliees a la masse. II est 
aussi possible d'acheter ces composants et de les monter sur un 
petit circuit imprime separe, ce que nous vous conseillons (si 
quelqu'un se propose de realiser ce circuit, qu'il nous le fasse 
savoir, nous le signalerons . . . ) . Dans ce dernier cas, il doit 
etre possible de siraplifier la logique, afin d'eviter l'emploi de 
trois circuits integres differents. Nous laissons ces details a 
votre appreciation ! 

Apres avoir realise ce montage, vous constaterez que les petits 
traits noirs restent toutefois visibles sur les deux premieres 
colonnes de l'ecran, lorsque celles-ci contiennent des zones 
graphiques. Le probleme est identique sur le modele 3- II faudrait 
utiliser un montage beaucoup plus complexe pour resorber integra- 
lement ce defaut qui, reduit a ce point, passe totalement tnapercu 
II suffit de passer le "Dancing Demon" pour s'en rendre compte et 
apprecier la difference ! 

Christian Cabrol 
Alain Pinaud 
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experience 



Traitement de textes 



maintenant, 



9a marche ! 



Les systemes de "Wordprocessing" ne sont pas tout a fait adapted aux trai- 
tement des textes frangais, c'est une dgcouverte que tout utilisateur d'un 
TRS-80 peut faire a ses ddpens . C'est la raison pour laquelle j ' ai trouv£ int6- 
ressant de raconter mon cheminement , du pro jet initial jusqu'a mon systeme ac- 
tuel en passant par des tatonnements , des erreurs, des d£couvertes. C'est a 
l'aide de ce systeme que cet article, reproduit tel quel dans ce journal, a <5te" 
redige\ 



J'ai commence en 1979, au moment de 1' apparition des premiers ordinateurs 
individuels en France. Si les problemes que j'ai rencontres subsistent en par- 
tie encore aujourd'hui, les caracteres accentu^s par exemple, il y a tout de 
m§me maintenant des materiels, des logiciels et des informations plus facilement 
disponibles . 



Mon cahier des charges dtait precis : 

- 6cran 80 caracteres, 24 lignes, avec possibility graphiques ou 
semi-graphiques ; 

- clavier majuscules, minuscules; 

- deux united de cassettes connectables simultan£ment ; 

- imprimante de type IBM a boule; 

Pour l'affichage des caracteres accentugs a l'£cran il n'y avait aucune 
solution en vue. J 'envisageais, dans la mesure ou l'imprimante que j'allais 
acqugrir pourrait les imprimer, d'afficher et de mdraoriser les caracteres 
accentu^s sous forme de caracteres graphiques. 
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Done, en thfiorie, cette configuration de materiel, associee au programme 
de traitement de textes que je projetais d'£crire, devait de maniere relative- 
ment satisfaisante r£pondre a mon besoin. 

En recherchant une configuration correspondant a mon cahier des charges, je 
decuuvrais qu'aucun des systemes entrant dans La gamme des prix acceptables, ne 
possedait un 6cran 80 caracteres. 

Ceci admis, le Model 1 niveau 2 avec 16 K de mgmoire, repr^sentait avec 
son ecran de 64 caracteres par 16 lignes un choix possible, a condition de lui 
adjoindre tout de suite 1' interface d 1 extension pour pouvoir connecter deux 
cas oct t ophoncs simu It ancment . La modification "minuscules" n'exiatait pas en- 
core chez Tandy, mais on m'avait donn6 l'adresse d'une socigte' qui se charge- 
rait de cette adaptation. Helas, le temps d'acheter mon TRS-80 et de prendre 
contact avec cette maison, elle avait cessg cea activit^s. 

N'ayant aucune solution de rechange du c6td materiel, je decidais de d6- 

velopper quand mime mon logiciel BASIC en faisant pr£c4der sur l'dcran toutes 

les majuscules par un pav€ graphique. A 1 ' impression, les caracteres marques 
seraient imprimis en majuscules, les autres en minuscules. 

Un autre problems 6tait le traitement des fins de ligne. Je cherchais un 
moyen d' installer une sortie sonore ind£pendamment des deux interfaces de cas- 
settophone pour gdn^rer, a l'instar des machines a 6crire, un son d' avertissement 
en approchant les fins de ligne. 

L'imprimante que j'avais commanded £tait un ancien terminal IBM recondi- 
tionne' et connectable par interface RS-232. La date de livraison approchant, 
j'installais dans mon interface d'extension la carte RS-232. Juste a temps pour 
recevoir une lettre m'annoncant que la machine que j'avais commanded ne pourrait 
Stre livrSe. On me proposait a la place un modele coutant 4 fois plus cher, ce 
qui depassait largement mes possibilities. 

Je continuais n£anmoins a deVelopper mon logiciel. A mesure que j'ajoutais 
des possibility's, je diminuais la vitesse de prise en compte des caracteres 
frappes sur le clavier. Finalement, il devenait evident que le Basic n'£tait 
pas assez rapide pour cette application. 

La solution residait dans 1 ' assemb leur . J'ai commence par acquerir un 
livre pour £tudier les possibility du langage machine. Habitue a de grands 
systemes, j'etais un peu d6rout6 par 1' absence d'ordres de division, de multi- 
plication et de conversion de bases nuraeriques. Je m'e'tonnais aussi de l 1 ab- 
sence d'une bibliotheque de routines d'entr£e/sortie. Ecrire un programme de 
traitement de textes seraLt une operation de longue durge, mais je r^solus de 
l'entreprendre. 

Malheureusement , il s'avgrait impossible de charger la cassette avec le 
programme Assemb leur que j'avais achet£. Les copies, qui m'ont 6t§ fournies par 
la suite, ne se chargeaient pas mieux, ni aucun autre programme systeme. Mon 
TRS— 80 souffrait d'une maladie infantile courante a cette gpoque: les difficul- 
ty de lecture par le magnetophone. Heureusement ce probleme a £t£ r£gl£ depuis 
sur les machines plus rgcentes par une modification de la MEM. 

Mon projet de logiciel gtait bloqug pour 1' instant. 

Par contre, j'avais trouvg avec la H14 de Heathkit une iraprimante dans mes 
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prix. J'ai monte ce kit avec 1 ' aide d'un ami experiments en eiectronique . Le 
montage, aide d'une documentation excellente, ne comportait aucune difficult^. 

Passons 8ur les problemes d 1 interf agage qui m'ont occupe des semaines. La 
solution a depuis €t€ decrite dans plusieurs revues am^ricaines. 

La lenteur, et surtout le peu de fiabilite des cassettes m'avaient fin- 
alement amene a m'Squiper de deux unites de minidisquettes. Mais il n'existait 
pas de programme assembleur en version disque. 

La sortie de Newdos+ incluant une version modified de Edtasm sur disquette 
apportait heureusement peu apres la solution. Mais, impossible de travailler 
avec ce programme en m^moire en plus du DOS. 1 1 me fallait ajouter 16K de m&- 
mo i re . 

La decouverte d' Electric-Penci 1 , le premier programme de traitement de 

texte sur TRS-80 disponible en France, devait radicalement changer l'orienta- 

tion de mon projet: pourquoi sacrifier mes loisirs pendant des mois pour d€ve- 
lopper un logiciel qui existait deja. 

La documentation accompagnant Electric-Pencil donnait en plus des infor- 
mations sur la maniere d' installer une modification "minuscules". Arme" de mon 
fer a souder je me suis done mis au travail .,., pour mettre en panne mon 
TRS-80: j'avais et6 trop long pour faire mes soudures, ce qui avait fait gril- 
ler un circuit me'moire. 

La partie clavier de mon TRS est rest^e en reparation pendant un mois. 
Quand je l'ai recuperS la modification "minuscules" etait enlevie, et les pie- 
ces correspondantes m'etaient rendues separement dans un petit sachet. 

Etant entete de nature j'ai aussitdt recommence et j'osais a peine le 
croire, cette fois tout fonctionnait a merveille. Cette modification s'effectue 
en installant une meraoire MEV suppiementaire, un commutateur majuscules seules 
/ majuscules + minuscules et une touche de controle. Rien a changer au %€n€xa- 
teur de caracteres qui contient d'origine des minuscules, mSme si elles ne sont 
pas trfts jolies. 

Je pouvais enfin commencer a utiliser Electric-Pencil. Ce que j'appr^ciais 
le plus, e'etait le fait qu'il ne soit pas n^cessaire de se preoccuper de la 
fin des lignes. Des qu'un mot depasse la fin de la ligne il est automatiquement 
report^ au debut de la suivante. Ce dispositif est maintenant tout a fait banal 
dans les systemes de traitement de textes. 

Concernant les corrections sur le texte, Electric-Pencil m'apportait les 

facilites que j'attendais : dSplacement libre du curseur sur tout le texte dans 

les 4 directions, insertions et suppressions, permutations de parties du texte, 
recherche et remplacement autotnatique de mots. 

II restait cependant un probleme concernant 1' impression: il n'y avait pas 
de gestion de l'interface RS-232 dans ma version d 1 Electric-Pencil. J'ai done 
realise un programme formateur en BASIC pour imprimer Les textes crees et me- 
morises sur disquette par Electric-Pencil. 

A force de l'utiliser, je devenais plus sensible aux lacunes d'Electric- 
Pencil: il est facile de perdre des caracteres en frappant a une cadence 
moyennement rapide, notamment au moment des changements de ligne; le deplace- 
ment du curseur en recherche est un peu lent; il n'y a pas de possibilite de 
positionner des tabulateurs. 
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Aussi, je recommengai s a envisagsr d'£crire rnon propre logiciel quand a ce 
moment Scripsit devint disponible. 

Je constatais que ce programme Stait beaucoup plus rapide (impossible de 
perdre des caracteres). Scripsit permet de repr£senter a l'^cran des lignes de 
plus de 64 caracteres: on indique la longueur voulue de ligne, le texte est 
reformat^ et il est ainsi possible de simuler le deplacement lateral de l'ecran 
devant le texte, de raeme facon qu' habituel lement dans le sens vertical. 

De plus Scripsit possede des possibility de tabulation, d 1 indentation des 
debuts de paragraphe, de num£rotation automatique des pages et de creation de 
blocs de d£but et de fin de page r£p£tes automatiquement . 

La souplesse au niveau du formatage a 1' impression est fortement accrue par 
1 ' incorporation de marqueurs dans le texte. Ces marqueurs permettent un forma- 
tage dynamique j c'est a dire qu'il est possible de changer les marges ou tout 
autre facteur de formatage au cours de 1 ' impression. 

Ce programme est propose" avec une modification "minuscules" du Modele 1. 

En fait, j'ai constate" qu'il marche tres bien avec la modification Electric — 

Pencil. Seul avantage de la modification de Tandy, les jambages des lettres q, 
p et j sont descendants. 

Les commandes de Scripsit etant plus completes, elles sont de ce fait 
aussi plus complexes, n^anmoins apres une petite p£riode d' apprent issage et 
d ' adaptation, j'ai estime" ses avantages tels que j'ai cesse" d'utiliser Elec- 
tric-Pencil. 

J'^tais presque satisfait de mon systeme, cependant l'£criture d'une im- 
primante a matrice ne peut rivaliser avec l'^criture d'une impriraante a boule ou a 
marguerite, ou d'une simple machine a £crire manuelle, meme m^canique. Cela 
limitait les cas ou je pouvais ef f ecc ivement utiLiser le traitement de textes. 

L'annonce de la Daisy II arrivait a point nomme' , je l'ai achetee des sa 
sortie. 

C'£tait tr^.s satisfaisant de pouvoir impriraer des textes avec un bonne 

quality de frappe, mais c'e'tait frustrant de ne pas pouvoir utiliser tous les 

possibility de cette machine tels que: le Soulignement , le retour arriere 

pour surimprimer comme f% nos caracteres nationaux tels que a, e, 4, e, c, u, 

etc, et les caracteres sp^ciaux tels que °, p, 1, ", ®, ©, etc. 

J'en etais reduit a ajouter les accents a la main ! 

Une solution plus £l£gante, passait par une modification de Scripsit. 
Apres avoir disassemble" et liste" ce programme, je repe"rais sans trop de diffi- 
culty l'endroit ou ii fallait modifier le driver d' imprimante. Pour localiser 
cet emplacement, j'avais recherche dans la liste des r£f£rencps croisees les 
instructions qui faisaient appel a l'adresse 37E8H, adresse de sortie des 
caracteres vers 1 ' imprimante . J'ai pu ainsi modifier le driver d' impression 
pour transformer, par exemple, @ en a , $ en g, etc. 

Malheureusement , le nombre des caracteres speciaux que je pouvais attri- 
buer a des caracteres accentue"s, et dont je pouvais rae passer n'^tait pas 
suffisant pour permettre tous les caracteres que je voulais pouvoir imprimer. 
D'autant plus que je souhaitais, en plus, disposer des signes ° et p. 

J'essayais done de modifier Scripsit pour lui faire accepter de me"rooriser 
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et d'afficher des codes graphiques qui auraient ete imprimis comme caracteres 
accentu^s. Je n'avangais pas dans cette voie: les contrSles concernant les 
valeurs entries sont trop severes, trop nombreux et trop disperses. 

Finalement j'ai ete depanne par Superscript un programme modifiant Scrip- 
eit et realise" par Acorn Software. 

Pour effectuer cette operation, il faut copier une version de Scripsit sur la 
disquette Superscript et lancer ce dernier programme. On ripond ensuite aux 
questions poshes a l'ecran, concernant le type d'imprimante utilise, et la 
modification s'effectue automat iquement. 

On obtient une version de Scripsit qui possede de nombreuses possibility 
supplemental res : 

- protection de la m£moire haute pour installation gventuelle de 
routines supplementaires ; 

- abaissement ou de relevement du chariot d'une demi-ligne, 
autorisant les indices inferieurs et superieurs; 

- insertion d'espaces entre deux mots qui ne seront en aucun 
cas separes par le formatage des lignes ou la justification; 

- arret en cours d' impression pour insurer un mot tape directement au 
clavier, ou pour changer de marguerite; 

- changement de la densite en cours d' impression; 

- le zero barrg (0) ; 

- meilleur fonctionnement des touches en repetition automatique; 

- soulignement et 6criture grasse par double impression de chaque 
caractere; 

- acces a 5 nouveaux caracteres en frappant CTRL en meme temps que certaines 
touches. Ces caracteres sont [ ] < > et l'accent circonflexe. 

Apres 1' installation du "patch" j'ai redesasserabie et remodifie la nou- 
velle version de Scripsit, pour utiliser les caracteres nouvellement disponib- 
les en leur donnant les significations qui me convenaient a 1' impression. 

Je pouvais maintenant imprimer la plupart des caracteres couramment uti- 
lises. Mais il restait un certain nombre de caracteres plus ou moins exotiques 
de ma Daisy II tels que 8 | t Y h i i etc. auxquels je n'avais toujours 
pas acces. Par ailleurs , la fonction de soulignement soulignait les mots ma is 
pas les espaces entre les mots. 

Le fait de voir "}" a l'ecran et de se souvenir que ma version de Scripsit 
imprimerait "h" a la place n'etait en soi pas difficile, d'autant plus que 
j'avais colie des etiquettes sur les touches correspondantes. Mais la relecture 
d'un texte ou la recherche de fautes de f-rappe fait appel a des reflexes qui 
sont mis en echec devant des mots etranges comme "d{crypter" ou "voil@". 
Impossible de corriger un texte efficacement a l'ecran, il fallait imprimer une 
premiere fois, corriger sur papier, entrer les corrections a l'ecran puis 
re imprimer. 

La lecture de publicites dans les journaux d' informatique individuelle, 
m'apprenait qu'une solution venait d'apparaftre sur le marche. La societe 
Beige BCM proposait un generateur de caracteres accentues pour TRS-80 accom- 
pagne de modifications pour Electric-Pencil et TRSDOS. Rien pour Scripsit, mais 
du c8te logiciel je me sentais en mesure de faire face. 

II n'y avait pas a hesiter, je commandais done le generateur de BCM qui me 
promettait une amelioration considerable de mon systeme. 

En ouvrant mon TRS-80 je verifiais que comme je le soupgonnais , sur ce 
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modele relativemenc ancien, le g6n6rateur de caracteres 6tait soude\ Etant 
donn£ le mauvais souvenir laiss6 par ma derniere modification, je portais toon 
appareil chez Tandy pour faire mettre le g6n6rateur sur un support. Pour le 
reste 1' installation de ce g6n£rateur de caracteres ne pose aucun probleme. 
Attention cependant aux pattes a enficher: elles sont vraiment tres fines et 
fragiles. 

Les caracteres e e" et u se trouvent a la place des caracteres { } et [ 
de Superscript: d£ja une partie du probleme r£solue. 

Le reste 6tait passablement complexe; le plus dur £tant de trouver a quel 
endroit du programme est g£re' 1'affichage des caracteres a l'ecran. Pour affi- 
cher les autree caracteres accentufis, j'ai <*Q l es stocker en m£moire sous une 
valeur qui n'est ni celle qui est affich£e ni celle qui est imprimfie! Cela est 
dO aux nombreux contrfiles faits par Scripsit, qui n'admet la memorisation et 
le traitement de caracteres que s'ils sont dans la fourchette d^cimale 32 a 127. 

Dans cette plage, les caracteres 91 a 95 et 123 a 127 ne sont pas utilises 
pour des caracteres courants. 11 constituent des marqueurs sp^ciaux de Scripsit 
et des marqueurs et caracteres suppl£mentaires de Superscript. En prenant cer- 
taines valeurs dans cette plage, et en y ajoutant #, $ et @ j'avais suffi- 
sanrment de codes pour tngmoriser tous les caracteres accentugs que je voulais 
pouvoir afficher a l'gcran. 

Par exemple en tapant CTRL 6 le eigne | (code 124) est memorise, le 
driver 6cran modifig de Scripsit affiche "e" (code 5 sur le g6n£rateur de 
caracteres de BCM) : comme ce caractere n'existe pas sur la Daisy II, le driver 
d 1 impression traduit en "e", BACKSPACE, accent circonflexe, (codes 101, 08 et 
136) ce qui donne a 1' impression de nouveau "S". 

Cette version modified de Scripsit me permet ainsi d 1 afficher directement 
les caracteres suivants : 

a c e e e u ° 

Pour pouvoir acceder a d'autres caracteres, je mis a profit le fait que 
certains signes spgciaux sont, en principe, toujours suivis d'un espace. J'ai 
done considers que chaque fois qu'un tel signe precede un caractere non blanc, 
il prendrait pour le driver de l'imprimante le sens d'un signal d 1 echappement 
indiquant que ce caractere doit etre traits de maniere particuliere , c.a.d. dans 
la plupart des cas , transcodifig en un autre. 

Ainsi, tous les caracteres avec un accent circonflexe, hormis le "8" affi- 
ch£ directement a l'gcran, peuvent gtre obtenus en frappant < imm^diatement suivi 
du caractere a accentuer : 

a t a a 

Le signe : suivi du caract&re a coiffer permet de mettre un tre'ma : 

e l u 

Tous les autres caracteres existant sur la Daisy II peuvent etre obtenus 
par le Signe ! pr£c£dant un autre caractere : 

! et D = t , ! et h = i, ! et y ■ Y, ! et s = B, ! et g = °, etc. 

Le signe * est interpret par le driver d'imprimante comme un Backspace 
(retour arriere d'un caractere, permettant ainsi la surimpression) . Pour pou- 
voir quand mgme imprimer * il faut taper ! suivi de *. 
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Le ; non suivi d'un espace permet de souligner les espaces entre les mots, 
chaque ; est remplac£ par un espace souligng. 

Les combinaisons ! avec < ou > permettent de monter ou de descendre une 

demi-ligne. lis commandent de plus une autre fonction: les et ===== sui- 

vants sont imprimes connne des lignes simples ou doubles continues. 



Cette possibility permet de 
cr£er des cadres! 



J. 



Les marqueurs ! suivis des chiffres 1 a 7 permettent un d£calage de 1 a 7 
caracteres vers la gauche de la seu le ligne en cours. lis fournissent un moyen 
plus commode que les commandes standard de formatage de Scripsit, dans le cas 
ou certaines lignes commencent plus a gauche ( numeTotation [ 1.) ou a.)] ou 
marquage [ - ou . ], etc. 

Pour ne plus me tromper de touche controle j'ai par ailleurs dgplace' 
celle-ci de la touche @ vers la touche contraie d 1 Electric-Pencil plus commo- 
d£ment placed sur mon clavier. 

II reste a resoudre un probleme cre£ par ces ameliorations, dans certains 
cas la justification ne fonctionne plus tres correctement , je tente actuelle- 
ment de rem£dier a ce defaut. 

Hormis cette imperfection, je possede done maintenant un systeme de crai- 

tement de textes dans 1' ensemble conforme a mes souhaits qui se compose: 

- du Model 1 niveau 2, 48 K; 

- de deux unites de minidisquettes; 

- d'une imprimante Daisy 2; 

- du g^nelrateur de caracteres BCM; 

- des logiciels Scripsit et Superscript modifie's par mes soins. 

Cette configuration represente un investissement d' environ 31000, — 
francs, a mes yeux un rapport qualite" - prix int^ressant. 



Wolfgang LAUTER 



Abonnez-vous 



a 
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Voir page 5 



40 — TRACE N° 1 — Janvier 82 



1 


ur 

27, Av. Duquesne 
75007 PARIS 



.Publicite 



ASSOCIATION LOI 1901 



L ' Assoc i at ion des Utilisateurs de TRS-80 
a ete fondle il y a un an et demi pour 
repondre a un besoin de mutuelle assistance. 



Son role essentiel est d'etre un trait d' union entre les 
utilisateurs d'un me"me type de materiel, de -favoriser les contacts 
entre membres de preoccupations voisines ainsi que d'encourager et de 
■faire connaitre les developpements realises sur TRS-80. 

Son principal moyen d' action est un bulletin aux rubriques variees 
(sujets generaux, renseignements sur les produits nouveaux , conseils 
de programmation en BASIC ou en assembleur avec exemples a l'appui) 
dont six numeros ant ete publies & ce jour. 

L'A.U.T. organise chaque moi s a Paris une reunion qui porte 
partiel lenient sur un theme precis. C'est surtout une occasion pour 
nouer des contacts et engager des conversations f ructueuses. Les 
pr obi ernes evoques par les autres elargissent 1 'horizon de chacun. 

En 1981, un concours de programmes de jeux a obtenu un vif succes 
tant par le nombre de programmes recus que par la qualite des 
mei 1 leurs. 

Quel que soit votre materiel Tandy (ou de toute autre marque com- 
patible), rejaignez les rangs de l'A.U.T. Plus importante sera 1 * as- 
sociation, plus efficace sera 1 'action de chacun. 

Une structure existe, A vous d'en profiter. 



REUNIONS PREVUES : 



23 
27 
20 
24 
22 
26 



janvier 1982, langages et systemes d' exploi tat i on. 

-fevrier 1982, liaisons a-vec des dispositi-fs exterieurs. 

mars 1982, education. 

avril 1982, gestion des -fichiers. 

mai 1982, applications prof essionnel les. 

juin 1982, jeux. 



Ces reunions se tiennent de 14h.30 a 17h.30, a la salle Chateau- 
briand de 1 'annexe de la Mairie du 14eme arrondi ssement , 26 rue 
Mouton-Duvernet 75014 PARIS. 

Toute-fois celle du 20 mars est prevue au Club-House du PUC, 1 ave- 
nue de la parte de Bentilly, 75013 PARIS. 

Pour plus de renseignements et pour recevoir un specimen du bul- 
letin, ecrivez a A.U.T. 27 avenue Duquesne 75007 PARIS 
en precisant : 



NOM 

ADRESSE 
PROFESSION 
MATERIEL UTILISE 



PREN0M 

TELEPHONE 



programme. 



Augmentez 

votre vitesse 

de frappe sur clavier 



C'est un des tous premiers programmes que j'al 
ecrits des l'achat de mon ordinateur. Apres 
reflexion, Je me demande encore si ce n'etait pas 
pour amadouer mon epouse qui, en ce temps-la, 
n'avait pas de machine a ecrire personnelle ... 
La disposition anglo-saxonne des touches clavier 
de la pauvre machine mlt un comble a sa furcur ct 
Je dus passer rapldement a 1 'action avant que 
1' ordinateur lui, ne pasae par la fenetre ... ! 
Vous 3avez comment 11 faut s'y prendre maintenant 



3 









Ce petit programme permit 
conquc au clavier aelon 1 
ou AZERTY (franca is). Dan 
clavier peut etre conside 
comme celui d'une machine 
table de transcodage des 
l'affichage s'effectue en 
llgne (gros caracteres). 
programme afflche la vlte 
par minutes, selon la con 
dactylographes. 



de frapper un texte quel- 
e mode QWERTY (anglo-saxon) 
s ce dernier mode, le 
re a quelques details pres, 

a ecrire, grace a une 
touches. Optionnellement , 

64 ou 32 caracteres par 
A la fin du texte, le 
sse de frappe en mots 
vention utllisee par les 



Pour pouvoir roesurer le temps de frappe ez trans- 
coder les caracteres lssus du clavier, il est 
necessaire d' employer une routine en langage 
machine. 5ur une machine «8K Uisque , le programme 
fonctionne tel qu'il est decrit ci-apres (routine 
implantee aux adresses 30726 a 30900), sans 
necessiter de "memory size". S'il est necessaire 
de deplacer cette routine, 11 faudra veiller a 
modifier en consequence les zones soulignses du 
programme. Aux lignes 60 et 90, la valeur 120 
represente INT (adresse routine/256). Pour les 



10 COPYRIGHT TRACE ET L'A'/TEUR 

20 CHD'T" 

30 CL5 1 PRINT TAB! ID 1 "••• PR0G*ANHC DE 

NTPAINEHENT 0ACTYL0 »»*' 1 PRINT 
40 POKE 16513.255 

50 DATA I .0,0,33,0. 0.22?, 229. 62, 14, 205, 51 

,0.-205>43.0. 183.32.15 
60 DATA ;23. 35- 12-.. 101.32.6. 225.35.229.33 

•0-0 -229. 24. 235. 254.1 
'0 DATA 40. 24. 3. 254. 33-56. 32. 254. IS,, 8. 28 

.214, 23. =5.22.0. 33. 119 
80 DATA I 20 . 25 . 126. 205 . 51. 0,24, 202 . 237 . 67 

■0-i;fJT2S.34.3-i;o.2?5 
°0 DATA 34.4. 120 .201 

100 DATA 234.109.32.4.42.63.24,230.254.96. 

40.229.254. 13.40-8 
110 DATA 23*. 9, 32,215, 62. 13. 24. 214,38, 128. 

56. 183, 4D. 4. 62. 37. 24 
120 DATA 204.62.85.24.200 
130 PEN TABLE DE TRANSCODAGE 
140 DATA "J. SO. 51-52.53. 54, 51. 36, 3'. 46./?- 

5",33.38,61.65,42.69 
150 DATA 34. 39.40. 45. 69. 45. 67. 41 .77-46.43. 

47, 43: "1.8 1.66, 6' -68 
160 DATA O*. 70.71. 72, 73 , ''4.75. 76. 44. 78-79. 

80.-65 £2-83,84.65.86 
170 DATA '0-88,89.87 .9 1 -92 -93,9* 
180 RESTORE 

190 FOR AP" 3Q72tp TO 309D0 
200 READ V i POKE AD.V ! NEXT 
210 DEFUSM- jO 7 ^ 
220 INPUT "CLAVIER FRANCAIS. (0UI 0U NON > - 

l '-♦ 
230 IF LEfTtlGl.ll <> "0" THEN POKE 30767 . 

240 INPUT "V0ULEI-V0US LES GROS CARACTERES 

, (0UI OU N0N> "1 Gl 
250 CLS : PRINT "FRAPPE? SUR LA T0UCHE ' 8» 

EAK' POUR STOPPER LE CHR0N0.' > INPUT 

"FRAPPE Z LA T0UCHE ENTER L4RS4UE VOU 

S ETE5 PPET": At 
260 CLS 1 IF LEFTtCGt.ll ■'0' THEN PRINT C 

HPt(23* 

270 PRINT "TOP CHRONO " 

280 A-USRMOJ i PRINT : PRINT 
290 NC'PLtH, jU/tfUJ * HEEMt 30721 ) * 236 
300 TI=PEEKi 30722 ' • PEE«I 307*23 ' • 236 
310 T2-PEEKI 30724 ) • PEEK 1 307 25 1 • 256 
320 T=63336 • T2 ♦ Tl ♦ ill} • HO I T»T ' 

2116 
330 PRINT -NOIIBRE TOTAL DE CARACTERES" ' I N 

C 
340 PRINT "TENPS TOTAL-'! I TH-0 I TN-0 < 

T5=0 : TT-T 
330 IF T>"3600 THEN TH-INT1 T/ 3600 > : PRINT 

TH! "M "! : T-T-36D0«TH 
360 IF T>-60 THEN TH-1NT CT'60 1 I PRINT Till 

"HN "I l T-T-60-TN 
370 PRINT INT(T>! "S" 

380 PRINT "VITESSE- - ! NCMO'TII "HOTS/MN." 
390 PP1NT : INPUT "ON CONTINUE"! At I IF L 

EFTHA».1l = "0" THEN 250 
400 CND'R" 



utilisateurs non-disque , le DEFUSE? Ce la ligne 210 
devra etre remplace par : POKE 16527, 120 : POKE 
16526,6. 

Un petit detail : la commande "nouvelle llgne" 
(ENTER) est effectuee par la touche Tleche a 
droite", pour plus de vraisemblance. 



Alain Pinaud 
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utilitaire. 



Un « super-driver » 
relogeable 
pour votre 
imprimante 

parallele 




Ce programme en assembleur s'adresse aux utilisa- 
teurs de NEWD0S80 sur modele 1 version disque et 
permet de gerer 1' imprimante parallele avec un 
maximum d'avantages. Le "driver" (nom donne a un 
programme devant "conduire" un organe peripherique) 
se charge Inltialement a l'adresse 5200H, puia 3e 
deplace en fond de memoire en rectifiant automati- 
quement le "memory size". Si vous avez deja des 
routines binaires a cet endroit, il se placera 
en amont . Les parametres courants du format 
d' impression peuvent etre definis a 1' initialisation: 
Impression du numero de page, nombre total de lignes 
par page, nombre de caracterea par ligne, marge 
verticale. Toutefois , ces parametres peuvent etre 
modifies facilement, sans pour cela recharger le 
programme. Ces parametres sont : 

- PAGE= numero a porter sur la premiere page (il 
n'y a pas d'impression si ce numero est 0) ; 

- LIGNE= nombre maximum de lignes per page ; 

- CARACTERE: nombre de caracteres pgr ligne 
(passage automatique a la ligne suivante) ; 

- MARGE= nombre de lignes a laisser avant un saut 
de page automatique (pas de saut si =0) ; 

- SAUT si oe parametre est present, un saut a la 
page suivante eat effectue avant le debut de 

1 ' impression. 

Ces parametres peuvent etre abreges : P=1 pour 
PAGE 1 , etc . 

Lancetnent a 1' initialisation (au niveau DOS) : 

PARAL <liste optlonnelle de parametres^ 



Exemple : 

PARAL P=1,M=1) 

Apres chargement, il est possible de modifier un ou 
plusieurs parametres, ou de provoquer un saut a la 
page suivante, en frappant une commande identique 
a celle ci-dessus mais precedae <3u signe "»". Cette 
possibilite interessante n'est exploitee que par 
NEWD0S80. Exemple : 



"PAKAL P = il,UAK='40 

CMD "*PARAL P:2,SAUT" 



(au niveau DOS ou MINI-DOS) 
(au niveau BASIC) 



Attention : toute tentative de charger le programme 
une seconde fois sans avoir reinitialise le sys-eme, 
provoquera une erreur (il est interdit de placer 
en "file" deux programmes de neme nom...). 

Un dernier mot : si voire imprimante genere tOu^e 
seule un "line feed" (avance papier) apres le retour 
chariot, supprimez les lignes 200, 2550 et 2560. 
Enfin, pour ceux qui n'auraient pas la chance 
de connaltre NEWDOS80, il est toujours possible 
apres quelques modifications, d 'adapter ce 
programme a un autre DOS, en se privant toutefois 
de la possibilite de modifier (simplement) les 
parametres, puisque la commarvde "*" n'est alors 
pas disponible. 

(programme au verso) 



Alain Pinaud 
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5200 
0000 
5200 
5200 
5201 
5204 
5207 
520B 
520F 
5213 
5217 
521B 
521F 
5223 
5227 
522B 
522F 
5233 
5236 
5239 
523A 
523C 
523D 
5240 
5241 
5244 
5246 



5247 
524A 
524B 
524D 
5250 
5251 
5254 
5256 
5259 
525A 
525C 
525F 
5262 
5263 
5266 
5269 
526B 
526D 



E5 

21A252 

CD6744 

DD212540 

ED5B2640 

ED53CD53 

ED53EF53 

ED53F753 

ED53FC53 

EB530E54 

ED533453 

EB539B53 

DD360342 

DD360550 

012101 

2A4940 

AF 

EB42 

23 

*"? *"> A*"? c *"* 

AF 

11F152 
ED52 
EB 



219552 

E5 

DBE1 

BB6E01 

7D 

BBB602 

2819 

DB6602 

E5 

FDE1 

FB6E01 

FB6602 

19 

FD7501 

FD7402 

BD23 

DB23 



18 BE 



00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
003°0 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 



DRIVER IMPRIMANTE PARALLELE 
PARAMETRABLE ET RELOGEABLE 
SOUS NEWD0S80 

LE 29/11/80 VERSION l.l 

COPYRIGHT TRACE & A.PINAUB 



PRINT 
PARAL 



ORG 

EQU 

EQU 

PUSH 

LD 

CALL 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

XOR 

SBC 

INC 

LD 

XOR 

LD 

SBC 

EX 



5200H 



$ 

HL 

HL?TI 

4467H 

IX ? 40 

DE? (4 

(AP1 + 

(AP2 + 

(AP3 + 

(AP4 + 

(AP5 + 

(AP6 + 

UMPB 

(IX + 3 

(IX + 5 

BC?ZZ 

HL 

A 

HL 

HL 

(TITR 

A 

DE ? QU 

HL?DE 

DE?HL 



TRE 

25H 
026H? 



'4 



>DE 

?DE 

?DE 

>DE 

? DE 

? DE 
L+l) ?DE 
) ? 66 
) > 80 
Z-QUEUE 
049H) 



1) 

1) 
1) 
1) 
1) 
1) 



RC 



E) ?HL 

EUE 



SEQUENCE DE RELOGEMENT 



RREF 



LD 


HL?TABS-1 


PUSH 


HL 


POP 


IX 


LD 


L . ? ( T X +- 1 ) 


LD 


A?L 


OR 


i IX +2) 


JR 


ZjFIIMREF 


LD 


Hj ( IX+2) 


PUSH 


HL 


POP 


IY 


LD 


L..(IY+1) 


LD 


H? (IY+2) 


ADD 


HL^DE 


LD 


(IY+1) ;L 


LD 


( IY + 2) ?H 


IMC 


IX 


INC 


IX 


JR 


SREF 



SAUVE PTR PAR AM 

EDITION TITRE 

ADR CB LP 

AD DRIVER STANDARD 



INIT LIGNES/PAGE 
I N I T CARAC/LIGNE 
LG DRIVER 
HI-MEM ACTUEL 



SAVE ADR REELLE QUEUE 

ADR ACTUELLE 
DELTA IMPLANT 
> DE 



DEBUT- 1 TABLE DES 
ADRESSES A RENDRE 
ABSOLUES 
1ER OCTET 



FIN TABLE SI =0 
2EME OCTET 



NEW VALEUR 

AJOUTE DELTA 
ET SAUVE 



POINTE VAL SUIV 
ON CONTINUE 



44 — TRACE N° 1 — Janvier 82 



526F 




00570 
00580 


FINREF 

1 


EQU 


* 


■ 
• 


526F 


ED5BA252 


00590 




LD 


DE? (TITRE) 


; ADR REELLE QUEUE 


5273 


D5 


00600 




PUSH 


DE 




5274 


21F152 


00610 




LD 


HL 7 QUEUE 


• ADR ACTUELLE QUEUE 


5277 


012101 


00620 




LD 


BC?ZZZ-QUEUE 


! LG A DEPLACER 


527A 


EDBO 


00630 




LDIR 






527C 


El 


00640 




POP 


HL 




527D 


CD6144 


00650 




CALL 


4461H 


; INSERTION EN FILE 


5280 


El 


00660 




POP 


HL 


• ADR PARAM 


5281 


C23953 


00670 




JP 


NZ7EPP 


; SI ERREUR APPEL 


5284 


E5 


00680 




PUSH 


HL 


■ RE-SAUVE ADR PARAM 


5285 


2AA252 


00690 




LD 


HL? (TITRE) 


ADR REELLE QUEUE 


5288 


2B 


00700 




DEC 


HL 




5289 


224940 


00710 




LD 


(4049H) ? HL 


5 SET HI-MEM 


528C 


218A53 


00720 


ABS1 


LD 


HLjDRIVLP 




528F 


222640 


00730 




LD 


(4026H) jHL 


1 ADR NEW DRIVER 


5292 


El 


00740 




POP 


HL 


5 ADR PARAMETRES 


5293 


C3FB52 


00750 
00760 


ABS2 

7 


JP 


QUEUE+12 


! TRAITEMENT PARAM 






00770 


; TABLE 


DES ADRE 








00780 


i 








5296 


8C52 


00790 


TABS 


DEFW 


ABS1 




5298 


9352 


00800 




DEFW 


ABS2 




529A 


1053 


00810 




DEFW 


ABS3 




529C 


3953 


00820 




DEFW 


ERP 




529E 


8B53 


00830 




DEFW 


IXPAR 




52A0 


0000 


00840 
00850 


1 


DEFW 







52A2 


20 


00860 


TITRE 


DEFM 


DRIVER PARAMETRABL 


52C7 


OA 


00870 




DEFB 


OAH 




52C8 


50 


00880 




DEFM 


'PARALLELE SOUS NEWDOSSO (P, Li C7 M 


52EF 


OAOD 


00890 
00900 


. 


DEFW 


ODOAH 








00910 


5 INTERFACE DOS 










00920 


; 








0004 




00930 


QUEUE 


DEFS 


4 


RESERVE AU DOS 


52F5 


50 


00940 




DEFM 


' PHIL 


NOM ROUTINE 


52FD 


7E 


00950 


RECH 


LD 


A? <HD 


ZONE PARAMETRES 


52FE 


FEOD 


00960 




CP 


ODH 


FIN ZONE? 


5300 


CA2D40 


00970 




JP 


Z»402DH 


OUI. EXIT 


5303 


FE20 


00980 




CP 


t f 




5305 


2003 


00990 




JR 


NZjPABL 




5307 


23 


01000 


INCHL 


INC 


HL 


SUITE 


5308 


18F3 


01010 




JR 


RECH 




530A 


FE2C 


01020 


PABL 


CP 


> » 




530 C 


28F9 


01030 




JP 


Z7 INCHL 




530E 


FE50 


01040 




CP 


'P' 


PAGE? 


5310 


D17E53 


01050 


ABS3 


LD 


BC*NPAG 


ADR PARAM PAGE 


5313 


282D 


01060 




JR 


Z7CONV 




5315 


FE4D 


01070 




CP 


•m' 


MARGE? 


5317 


03 


01080 




INC 


BC 




5318 


03 


01090 




INC 


BC 5 


ADR PARAM MARGE 


5319 


2827 


01100 




JR 


7 > CONV ' 




531B 


FE4C 


OHIO 




CP 


'L' ! 


LIGNE? 


531D 


012840 


01120 




LD 


BC?4028H ! 


LIGNE/PAGE DU CB 
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5320 


2820 


01130 




JR 


Z ? CONV ! 




5322 


FE43 


01140 




CP 


'C ! 


CARAC? 


5324 


012A40 


01150 




LD 


BC 7 402AH 5 


CAR/LIGNE DU CB 


5327 


2819 


01160 




JR 


Z 7 CONV 5 




5329 


FE53 


01170 




CP 


'S' I 


SAUT PAGE 


532B 


200C 


01180 




JR 


NZ?ERP 




532D 


DD212540 


01190 




LD 


IX?4025H ! 




5331 


0E0C 


01200 




LD 


C/OCH 5 


CODE HT 


5333 


CDOOOO 


01210 


AP6 


CALL 


PRINT ; 




5336 


23 


01220 




INC 


HL \ 




5337 


18C4 


01230 




JR 


RECH 




5339 


217253 


01240 


ERP 


LD 


HL?ERPAR ; 


533C 


CD6744 


01250 




CALL 


4467H 5 




533F 


C32D40 


01260 




JP 


402DH ! 


EXIT 


5342 


23 


01270 


CONV 


INC 


HL ' 




5343 


7E 


01280 




LD 


A?(HL) 




5344 


FEOD 


01290 




CP 


ODH 


FIN ZONE 


5346 


28F1 


01300 




JR 


Z ? ERP 




5348 


FE3D 


01310 




CP 


— 




534A 


20F6 


01320 




JR 


NZ7CONV 




534C 


23 


01330 
01340 


• 
1 


INC 


HL 


POINTE NUMERIQU 






01350 


! CONVERSION 


DECIMAL — > BINAIRE 








01360 


; ENTREE: HL 


POINTE CHAINE 








01370 


; SORTIE: DE = 


=VALEUR BINAIRE? A = CAR ARRET 






01380 


; 


HL 


POINTE CAR ARRET 








01390 


i 








534D 


110000 


01400 




LD 


DE?0 


■ 


5350 


7E 


01410 


DCB1 


LD 


A? (HL> 


7 


5351 


FE30 


01420 




CP 


'0' 


■ 


5353 


3816 


01430 




JR 


C7FCONV 


" 


5355 


FE3A 


01440 




CP 


'9' +1 


■ 
1 


5357 


3012 


01450 




JR 


NCtFCONV 


■ 
J 


5359 


23 


01460 




INC 


HL 


1 


535A 


E5 


01470 




PUSH 


HL 


1 


535B 


62 


01480 




LD 


H?D 


■ 
7 


535C 


6B 


01490 




LD 


L?E 


■ 
7 


535D 


19 


01500 




ADD 


HLrDE 


; 


535E 


29 


01510 




ADD 


HL7HL 


■ 
I 


535F 


19 


01520 




ADD 


HLjDE 


- 
1 


5360 


29 


01530 




ADD 


HL7HL 


■ 


5361 


D630 


01540 




SUB 


'0' 


? 


5363 


5F 


01550 




LD 


E?A 


; 


5364 


1600 


01560 




LD 


D;0 


• 


5366 


19 


01570 




ADD 


HL'DE 


i 


5367 


EB 


01580 




EX 


DEjHL 


■ 


5368 


El 


01590 




POP 


HL 


■ 


5369 


18E5 


01600 




JR 


DCB1 


■ 


536B 


E5 


01610 


FCONV 


PUSH 


HL 


■ 
7 


536C 


C5 


01620 




PUSH 


BC 


7 


536D 


El 


01630 




POP 


HL 


■ 
7 


536E 


73 


01640 




LD 


(HL) 'E 


; RANGE PARAM 


536F 


El 


01650 




POP 


HL 


; 


5370 


188B 


01660 
01670 


) 


JR 


RECH 


5 SUITE RECHERCHE 


5372 


2E 


01680 


ERPAR 


DEFM 


' . . .ERR EUR. ' 
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537C OAOD 



537E 
537E 00 
537F 00 

5380 00 

5381 50 
5386 2020 
5388 ODDA 



538A 
538B 
538E 
538F 
5392 

5394 
5395 
5397 
539A 
539D 
539F 
53A0 
53A1 
53A4 



53A5 
53A6 
53A7 
53A9 
53 A B 
53AC 
53AE 
53B0 
53B2 
53B4 
53B6 
53B7 
53B9 

53BB 

53BD 
53BF 
53C0 
53C1 

53C2 



C5 

217E53 

AF 

DDBE04 

2040 

BE 

283D 

012020 

CDOOOO 

10FB 

E5 

7E 

110800 

19 



23 

23 

0602 

OEFF 

OC 

D60A 

30FB 

C60A 

FEOO 

2007 

B9 

2004 

3E20 

1802 

F630 

2B 

77 

79 



53C4 El 

53C5 E5 

53C6 23 

53C7 23 



01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 

01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 

02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 



DEFW 



ODOAH 



ZONE DES PARAMETRES 



DEBDR 
NPAG 
CCL 
MAR 

NOPAG 



EQU 

DEFB 

DEFB 

BEFB 

DEFM 

DEFW 

DEFW 



* 



u 



'PAGE 

2020H 

OAODH 



NUMERO DE PAGE 
COMPTEUR NBRE CAR/LIGNE 
MARGE FIN DE PAGE 

NO LIGNE ASCII 



ENTREE DRIVER 



DRIVLP 
IXPAR 



PUSH 

LD 

XOR 

CP 

JR 

CP 

JR 

LD 

CALL 

DJNZ 

PUSH 

LD 

LD 

ADD 



; CONVERSION 
5 (A)=OCTET? 



IMPBL 



BC 

HLjNPAG 

A 

(IX+4) 

NZ?NLNZ 

(HL) 

Z?NLNZ 

BC?2020H 

PRINT 

IMPBL 

HL 

A 7 (HL) 

DE7NOPAG-DEBDR 

HL;DE 

BINAIRE/DECIMAL DU 
HL POINTE ZONE RECE 



SAUVE CARACTERE 
PTR ZONE PARAMETRES 

NO LIGNE =0? 

NON 

NO DE PAGE =0? 

QUI 

32 ESPACES 



SAVE PTR ZONE PARAM 
NO PAGE BINAIRE 

POINTE NOPAG 



INC HL 

INC HL 

LD B?2 

BINDCO LD C7OFFH 

BINDC1 INC C 

SUB 10 

JR NC7BINDCI 

ADD A?10 

CP 

JR NZ7BINDC.2 

CP C 

JR NZ7BINDC2 

LD A?20H 

JR BINDC2+2 

BINDC2 OR 30H 

DEC HL 

LD (HL)jA 

LD A?C 

DJNZ BINDCO 
■ FIN DE CONVERSION 

POP HL 

PUSH HL 

INC HL 

INC HL 



NO DE PAGE 
PTRICE DE : 



DEUX FOIS 



OCTETS 



PTR ZONE PARAM 



TRACE N° 1 — Janvier 82 — 47 



53C8 


23 


02250 




INC 


HL 


POINTE TEXTE "PAGE XX" 


53C9 


0609 


02260 




LD 


B?9 


LG TEXTE 


53CB 


4E 


02270 


INP 


LD 


C> (HL) 




53CC 


CD0000 


02280 


API 


CALL 


PRINT 


IMPRESSION "PAGE" 


53CF 


23 


02290 




INC 


HL 




53D0 


10F9 


02300 




DJNZ 


INP 




53D2 


El 


02310 




POP 


HL 




53D3 


34 


02320 




INC 


(HL) 


NO DE PAGE +1 


53D4 


CI 


02330 


NLNZ 


POP 


BC 


! 


53D5 


23 


02340 




INC 


HL 




53D6 


7E 


02350 




LD 


A? (HL) 


COMPTEUR CAR/LIGNE 


53D7 


DDBE05 


02360 




CP 


(IX+5) 


; MAX ATTEINT? 


53DA 


2008 


02370 




JR 


NZ ? MCNA 


; NON 


53DC 


110B00 


02380 




LD 


DE.DRIVLP-DEBDR- 


I 


53DF 


E5 


02390 




PUSH 


HL 




53E0 


19 


02400 




ADD 


HL ? DE 




53E1 


E3 


02410 




EX 


(SP) ?HL 


: RETOUR DEBUT DRIVER 


53E2 


180F 


02420 




JR 


CRLF 


! POUR SIMULER CALL 


53E4 


3E0D 


02430 


MCNA 


LD 


A ? 0DH 




53E6 


B9 


02440 




CP 


c 


1 CARAC = CR? 


53E7 


280A 


02450 




JR 


Z ? CRLT 


! OUI 


53E9 


3E0A 


02460 




LD 


A?OAH 


; CARAOLF? 


53EB 


B9 


02470 




CP 


r. 




53EC 


2805 


02480 




JR 


Z^CRLF 


■ OUI 


53EE 


CDOOOO 


02490 


AP2 


CALL 


PRINT 




53F1 


34 


02500 




INC 


(HL) 


■ +1 SUR COMPTEUR CARAC 


53F2 


C9 


02510 




RET 






53F3 


C5 


02520 


CRLF 


PUSH 


BC 




53F4 


OEOD 


02530 




LD 


C?ODH 


ENVOI CP 


53F6 


CDOOOO 


02540 


AP3 


CALL 


PRINT 




53F? 


OEOA 


02550 




LD 


C?OAH 


ENVOI LF 


53FB 


CDOOOO 


02560 


AP4 


CALL. 


PRINT 




53FE 


CI 


02570 




POP 


BC 




53FF 


AF 


02580 




XOR 


A 




5400 


77 


02590 




LD 


(HL) ?A 


RAZ NBRE CARAC/LIGNE 


5401 


23 


02600 




INC 


HL 


POINTE VALEUR MARGE 


5402 


DD7E04 


02610 




LD 


A? (IX+4) 




5405 


86 


02620 




ADD 


A ? (HL^ 


AJOUTE VAL CPTR LIGNES 


5406 


DDBE03 


02630 




CP 


( IX+3) 


= MAX LIGNES? 


5409 


CO 


02640 




RET 


NZ 


NON 


540A 


C5 


02650 


SOPAG 


PUSH 


BC 


SAUT DE PAGE 


540B 


OEOC 


02660 




LD 


C?DCH 




5^0D 


CDOOOO 


02670 


APS 


CALL 


PRINT 




5410 


CI 


02680 




POP 


BC 




5411 


C9 


n2690 




RET 






5412 




02700 


ZZZ 


EQU 


$ 




5200 




02710 




END 


PARAL 
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initiation 



Vos premiers pas 
en assembleur 



Nous n'avons pas 1'ambition, dans cet article, de 
passer en revue toutes les posslbllites de 
l'ediceur-asaerableur EDTASM. Notre cbjectlf est de 
prouver (peut-etre etes-vous deja ccnvalncus ?) 
que la mlse en oeuvre de ce logic lei est, somme 
toute F chose aisee. Pour ce faire, nous prendrons 
pour exemple une routine d'afflchage des codes 
ASCII sur l'ecran video. 

En version cassette, la procedure d'appel du 

programme est la suivante : 



(la premiere lettre suffit] 



SYSTEM 

•E 

"/ 

(NOTA : L'* est afflche par le logiciel. De meme 

que dans les entrees suivantes, toute ligne intro- 
dulte se termlne par un appul sur la touche ENTER). 

En version dlsquette, il surf it de frapper (au 
niveau DOS) : EDTASM. 

L'editeur-assembleur etant charge en memolre, un 
asterisque apparait en debut de ligne. Ce caraetere 
slgnirie "Je suis pret, entrez votre eommande". 

Etant donn£ que nous allons INTRODUIRE un texte, 
11 surrit de repondre : 

I ( ou "110,5" si nous voulons numeroter les 
llgnea de 5 en 5, a partir de la ligne 10). 

EDTASM repond en affichant le numero de ligne (100 
si rien n'est precise. Dans ce cas, la numerotation 
progresse de 10 er. 10). 

Au depart, nous scrames posltionnes sur le champ 
"etiquette" de la ligne assembleur. La touche -> 
(tabulation) nous permet d'acceder aux champs 
situes a droite ; la touche <- est utllisee pour 
revenir en arriere d'un caraetere ou d ' un champ 
(correction d'erreur). Si vous vous apercevez 
trop tard d'une erreur , n'en tenez pas compte 
pour 1' instant, elle sera corrigee par la suite. 

II vous reste maintenant a entrer le petit 
programme suivant en pensant a utlliser la touche 
" -> " pour passer d'un champ a 1' autre, et en 
terminant chaque ligne par un appul sur la touche 
ENTER. 



prem i er 


S - ff C O ~i d 


tro i s i 


sine "U i' r i eme 


fhami" 


Chant" 


champ 


/ ch imp 




OPC 


TjOOH • 


IMPLANTATION 


ASCII 


CALL 


1C9H 


PONTINE CL5 




LP 


A • 20M ! 


pd emiep COPE 


BO'JCL 


LD 


[:-Ai ! 


'.'-if LI ONE 


SUIT 


CALL 


33H ' 


^FflCH VIDEO 




T MT 


A 


SUITE ASCI! 




fr, 


&0H ; 


DERNIER CODE ; 




JP 


MI-PAFIN1 


• fiON 




LD 


Aj21H ■ 


0M DECALE DE t 


PAFINI 


ejn: 


SUIT ! 


SUITE 




JR 


B0UCL 


LIGNE SUIVANTE 




EflD 


ASC 1 1 





A ce moment, l'editeur-assembleur afflche le 
numero de la ligne ??0 , mala le programme etant 
maintenant termlne, 11 sufFit d'appuyer sur la 
touche BREAK. L'asterlsque apparait de nouveau. 

Voulez-vous lister votre programme ? Tres simple. 
II suffit de frapper la eommande : 

P** :• 

ce qui signlfie : 1 
la premiere (#) a 1 
aussi faire P150 po 
Mais vous avez peat 
Rien de plus simple 
du BASIC. II suffit 
sulvle du numero de 

de la meme facon qu 
supprlmer une ligne 
Par exemple : D160 



ister (Print) le programme de 

a derniere (*) ligne. On peut 

ur lister la ligne 150. 

-etre des erreurs a corrlger ? 
si l'on connalt deja l'edlteur 
d'entrer la eommande E (Edit), 
la ligne k modifier, et d'agir 

e pour une ligne de BASIC. Pour 

on utilisera la eommande D. 
supprlmera la ligne 160. 



Pour assembler le programme, on frappe la eommande 
A. En version dlsquette, EDTASM demande si le code 
binaire issu de l'assemblage !appele le code otret) 
doit etre stocke sur cassette (T) ou sur dlsquette 
(D). Dans ce dernier cas, il faut donner un nom au 
code ob Jet. Que ce fichler existe ou non sur la 
dlsquette, une confirmation est demandee (creation 
ou remplacenent ) . L' operation d' assemblage commence 
alors, et le fichler objet est ecrit sur la 
disquette. En version cassette, la eommande A sera 
suivle d'un espace et d'un non de 1 a 6 caracteres. 
A la fin de l'assemblage, 11 faut repondre a la 
question "HEADY CASSETTE" par la touche ENTER pour 
ecrire le code objet sur cassette (nom donne a la 
suite de la eommande A), ou par BREAK pour avorter 
la eommande. 

ATTENTION ! Avant de "sortir" d' EDTASM, 11 ne faut 
surtout pas oublier de sauver le code source, celui 
que vous avez frappe precedemnent . En version 
cassette, cette fonction est effectuee par la 
cunuiidiide W auivle d'un espace et d'un nom de I a 6 
caracteres. En version disquette, la sauvegarde se 
fait par : 



i sauvegarde sur dlsquette) 



W D = nom de I'ichier 
ou 

W T=nom de " a 6 caracteres (sauvegarde sur 

cassette) 



En regie generate, en utilisation dlsquette, les 
fichiers sources auront 1' extension "/ASM" et les 
richiers objets l'extension "/CMD", ce qui ne 
signifie pas que ces suffixes sont places auto- 
matiquement par l'editeur-assembleur. Vous on avez 
le choix. Dans le cas de notre petit programme par 
exemple, ASCII/CM1) sera le fichler blnalre execu- 
table (lane* sous DOS en frappant : ASCII), et 

le fichier ASCII /ASM sera le source de ee progranme. 
Vous voyez cue ce n'est pas si difficile que cela ? 



_ JP du Tillet 
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essai, 



De la musique 
pour votre 
ordinateur 



FICHE TECHNIQUE 



Nom du produit 
Type du produit 
Constructeur 
Diffusion en France 
Prix 
Presentation 



Langage utilise 
Configuration 

Docunentation 



Orchestra 80 

synthetlseur numerique 

Software Affair Ltd 

Graphie 

769 FF ttc 

un circuit imprlme 

une cassette (programme ♦ 

demonstration) 

assembleur 

TRS-80 Level II 16K 

lecteur cassette ou disquette 

manuel de 39 pages en anglais 

menuel francais chez l'importa- 

teur 



Qui n'a pas desire un jour pouvoir falre executer 
une partition, parce que trop difficile a interpre- 
ter ou mettant en oeuvre plusleurs instruments ? 
Qui n'a pas ete tente de s'essayer a la composition? 
C'est pour repondre a cette demande que le synthetl- 
seur Orchestra-80 et son loglciel associe, ont ete 
concus. Le resultat est plutot satlsfaisant sur le 
plan musical, sans comparaison avec ce qui peut etre 
obtenu classlquement en utlllsant un amplll'lcateur 
sur la sortie cassette. 

Le synthetlseur est constitue d'un circuit Imprlme. 
Celul-cl supporte un circuit integre, des resistan- 
ces, un connecteur se branchant sur la sortie "bus" 
de 1' ensemble clavier ou de 1' extension c' Interface, 
ainsl qu'une prise "Jack" femelle pour assurer la 
liaison avec un ampliricateur de son. Aucune alimen- 
tation n'est a prevoir. 

Le loglciel qui accompagne le synthetlseur est 
constitue de cinq modules groupes en un aeul prog- 
ramme, d'un manlement tres simple : 

. *L' interface" : le synthetlseur couvre six oc- 
taves et peut produire Jusqu'a quatre sons (ou voix) 
simultanement . A chaque voix correspond un des 
quatre registres derinlssant le type d' instrument 
imite. C'est 1' Interface module qui gere cette rela- 
tion. 

. "Le compilateur" : le langage musical propose 
autorise la transcription sans probleme de la plu- 



part des partitions musi 
donne des explications c 
passer de la notation rau 
le programme (mon fils d 
tres vite). Le compilate 
ecrites en n'lmporte que 
avec indication du "temp 
polntees ou joueea comme 
le pizzicato et les liai 
les , ainsl que les repet 



cales. Le manuel fourni 
laires sur la maniere de 
sicale a celle comprise par 
e 12 ans s'en est accomode 
ur accepte des rausiques 
lie clef, alteree ou non, 
•". Les notes peuvent etre 
un triolet. Le staccato, 
sons sont egalement possib- 
ltions . 



. "L'editeur" : c'est surement le module le plus 
interessant, en ce sens qu'il rend vraiment utili- 
sable le langage musical propose. Les modifications 
(suppression, insertion, changement, recherche, 
duplication) sont facllement realisees a l'aide du 
deplacement du curseur, qui donne acces a toutes 
les positions de l'ecran. De plus, la fonction de 
repetition est associee aux touches de commandes. 
En cas d'erreur a la compilation, le programme 
passe automatiquement en mode "editeur". Ainsl, 
l'utlllsateur peut effectuer la correction puis re- 
lancer la compilation. 

Des commandes sont disponlbles pour lancer la compi- 
lation ou 1' edition, le rangement ou le chargement 
de morceaux, l'enchatnement du chargement, de la 
compilation et de 1' execution de plusieurs morceaux. 

. "Le gestlonnaire de fichiers" : Les morceaux 
transcrits dans le langage musical peuvent etre 
stockes sur cassette (avec la gestion de plusieurs 
morceaux sur la meme cassette), ou sur la disquette 
(avec possibillte d'en afficher le catalogue). 

. "L' Inltiallseur" : Ce module gere une serie de 
dialuguea destines a preciser lea options choisies 

par l'utlllsateur : modification ou non des valeurs 
definissant le timbre (sont simules en standard 
les sons de la trompette, du hautbois, de la cla- 
rlnette et de l'orgue) ; nombre de voix simultanees 
(une plus grande qualite de simulation est obtenue 
avec trols voix) ; Vitesse d' execution standard 
(1.77 Mnz) ou rapide (2.66 Mhz) si l'on possede 
cette dernicro option de l'unitc ccntrale. 

Le synthetlseur s'installe sur la sortie "bus" du 
clavier ou de 1" interface d'extension. II est ne- 
ce3saire de se procurer un cable de raccordement 
afin de pouvoir le relier a sa chaine Hi-Fi. 

Le programme accompagnant Orchestra-80 est livre 
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sur cassette, dans les deux versions disquette et 
cassette. A titre de demonstration, des extraits de 
l'ouverture de Guillaume Tell, d'une sonate, d'une 
gigue et d'une fugue sont fournis. 

Bien 3ur , on regrettera 1' absence d'une represen- 
tation graphlque "facon Apple n", qui pourralt 
toutefois etre envisagee avec une carte graphlque 



(*) Selon certaines informations que nous n'avons 
pu contrSler avec certitude, 11 3emblerait que 
Software Affair, rournisseur de la gamme Orchestra, 
ait des problemes financiers qui pourraient l'arae- 
nmr a disparaltre. Nous avons decide de quand meme 
presenter cet essai, dans la mesure ou d'une part 
nos informations ne sont pas certaines, d'autre 
part il nous aemble que, meme si elles sont vraies, 
ce n'est pas pour autant que le procuit, qui n'eat 
flnalement qu'un perlpherlque , devient mauvais. 
Notre position seralt bien sur dlfferente s'il 
s'agissalt d 'unite centrale ou de gros peripheri- 
qu«s, pour lasquels la disporition evontuelle du 
constructeur pose des problemes pour le service 
apres-vente que ne peut fournir le revendeur. A nos 
lecteurs de Juger ! - NDLR . 



a haute resolution, mais a condition de modifier 
le logiciel en consequence. Plus ennuyeuse est 
1 'absence de modulation de l'intensite sonore : 
(aucun effet de crescendo/decrescendo n'est possib- 
le). L' interpretation s'apparente plus a celle d'une 
bolte a muslque ou d'un orgue de Barbarle qu'a 
celle de 1 'ensemble de Jean-Francois Paillard. 

Enfin, xl 'ist a noter 1 'absence de filtre basse 
frequence, tel qu'on en trouve sur "the music box" 
de Newtech Computer System (pour $119.95). Toute- 
fois, la documentation donne un conseil permettant 
de diminuer ces inconvenlents, en modifiant ies 
valeurs des registres ou en transposant le morceau 
a interpreter ; ceci se faisant a l'alde d'une 
commande du langage. 

Ceux qui seraient genes par les limitations 
d 'Orchestra-80 auront tou jours la possibility de 
lul preferer Orchestra-85, fabrique par la meme 
societe, et bientot disponible en France (*). II 
offre en outre une voix supplementalre , 1' effet 
de percussion, le son stereophonique et la faculte 
de redefinir le timbre pendant 1' execution. 



Pierre Landry 



materiel a 1' essai: 



Des 8 pouces 
sur votre modele 1 



Pourquoi vous contender sur votre modele 1 de la capa- 
cite redulte des minidisquettes ? Desormais, vous 
pouvez connecter des disquettes 8 pouces, d'une capa- 
cite unitaire de plus de 300K octets, voire 700K dans 
le cas de disquettes double face ! Ceci est possible 
grace au Mapper II , une interface specialisee dispo- 
nible sur le marche americain. 



Le "Mapper II" se presente 
circuit imprirae de 9 centi 
8 circuits integres et un 
recevoir le contr3leur de 
dernier sera preleve dans 

d'extcnoion. Deux fils par 
termine par un petit "grip 
connecteur 10 points. 
II suffit alors d'enficher 
laisse libre par le 1771, 
l'un de3 circuits Integres 
modeles d' Interfaces convl 



sous la forme d'un 
metres sur 9, supportant 
emplacement destine a 
disquettes FD1771 . Ce 

le chaa8la de 1' Interface 

tent du Mapper II, l'un 
-fil", 1 'autre par un 

le tout dans le support 
de raccorder un fil a 

de 1' extension (les deux 
ennent), et d'enficher le 
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connecteur sur le port "screen printer" afln d'y 
prelever le signal "WAIT". Cette methode 
d' installation dite "sans soudure" ne serable pas 
tres satisfaisante, et en pratique, 11 sera souhai- 
table de souder les deux fils, a moins que l'on 
eprouve une certalne repugnance a utiliser le Per a 
souder. II faut olgnaler d 1 autre part qufl 1 ' ouver ture 
du chassis annule la garantle Tandy . 

En plus de l'avantage incontestable de pouvoir 
exploiter des dlsquettes 8 pouces et leur grande 



tous les programnes tournant sous NEWDOS80 pourront 

exploiter les disquettes 8 pouces comme s'il 

s'agissait des minidisquettes standards. Mais avec 

quelle capaclte...! II faut signaler egalement que 

les disquettes ont un temps d 'acces inferieur et 

un debit superieur a ceux des minidisquettes, ce qui 

augmente notablenent les performances generales du 

systeme. 

Avec le Mapper II, le modele 1 s'approche 

davantage d'un vrai systeme professionnel , avec 

lequel on peut aborder des applications serieuses. 




capaclte, ce dlsposltlf apporte une amelioration 
de la fiabillte dans la lecture des mini-disquettes 
standards. Le Mapper 11 comporte en effet un circuit 
de separation externe donnees/horloge, hautement 
consellle dans les applications serieuses, tant par 
les constructeurs de minidisquettes que par ceux 
des controleurs. En standard, le modele 1 utilise 
le separateur Interne du 1771, qui est b:en connu 
pour un certain nombre d 'anomalies. Plusieurs firmes 
americalnes commercialisent d'ailleurs des separa- 
teurs externea de donneea sous le nom de "data- 
separator". 



Le cable de raccordement des disquettes fourni en 
supplement par Omikron, permet de raccorder 2 
minidisquettes 5 pouces et deux disquettes Shugart 8 
pouces SA800. En precisant au moment de la command e 
la configuration et le type des unites employees, 
il est possible d'obtenir un cable particulier. 

La documentation accompagnant le Mapper est claire 
et precise, mals aurait ete moins triste avec une 
petite photo ou un schema de montage. En annexe : 
nous trouvons quelques renselgnements sur la 
disquette SA800, alnsi que le schema du cable. 

Le loglclel NEWDOS80 detecte 1' existence du Mapper II. 
La commande PDRIVE de ce Systeme d' Exploitation 
peritet de definir la configuration des disquettes 8 
pouces a ralson de 77 pistes de 15 ou 17 secteurs 
chacune, solt un total de 327K octets par face. Le 
syateme etant configure, toutes les commandes et 



A notre connaissance, ce dlspositif n'est 
malheureuseraent pas disponible en France (Allons, 
Messieurs lea importateurs , un peu de nerf!>... 
Nous avons done ete obliges de le commander aux 
Etats-Unis a l'adresse ci-dessous : 

OMIKRON 

1127 Hearst St. 

Berkeley, CA 91702 

USA 

De plus, il faut signaler que cette firme fait 
quelques difficultes avec la carte Visa. II est done 
preferable de faire un versement en dollars. La 
commande ayant ete passee le 15 octobre 1980, nous 
avons recu le Mapper II et le cable le 7 Janvier 
1981... (bordereau douanier date du 20 decembre 
1980). II faut reconnaltre que la periode n'etait 
pas tres favorable et que nous avens passe un tres 
mauvais Noel ! 

Compte tenu du cours officiel de l'epoque (4,528 
francs) et des frais generaux (transport, douane, 
TVA > , nous avons estlme que le dollar nous revenait 
a 5,70 francs, ce qui about it done a la facture 
suivante : 



Mapper II 
CSble 



99$ x 5,70 = 561,30 F 
50$ x 5,70 = 285,00 F 



TOTAL 



849,30 F 



Steen Pedersen 
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langage, 



Le Pascal UCSD 
et son P-code 



Le Pascal UCSD est un systeme destine a s'executer 
sur un mini ou un micro-ordinateur . 

Ce systeme en fait est independant du mini ou du 
micro utilise, car 11 est ecrit en Langage Pascal. 
La compilation de ce langage prodult. un code inter- 
medialre appele P-CODE, execute par une "pseudo- 
machine" (appelee P-MACHINE), emulee sur une machine 
reelle. 

Seul le module logiciel emulant la P-MACHINE est 
ecrit en langage machine (Z80 dans le cas qui nous 
interesse) . 

Tout programme ecrit en Pascal peut done s'executer 
sur n'importe quelle machine disposant du systeme 
Pascal, et de ce module specifique appele INTER- 
PRETEUR, puisqu'il est execute sur la P-MACHINE 
qui est tou Jours la nieme . C'est la notion de 
"TRANSPORTABILITE" . 



Composition du systeme 



Le systeme Pascal se compose d'un certain nombre de 
modules que l'on retrouve en listant les fichiers 
contenus sur les dlsquettes : 



- SYSTEM. FILER 



- SYSTEM . EDITOR 



- SYSTEM. COMPILER 



- SYSTEM. SYNTAX 



- SYSTEM. PASCAL 



- SYSTEM. TRS-80 



- SYSTEM. MISCINFO 



Gestion de fichier (catalogue, 
copie, reorganisation des 
dlsquettes etc . . . ). 

Permet l'ecrittre des programmes 
en Pascal (creation, modifica- 
tion). Ces programmes sont 
stockes avec le suf fixe. TEXT 

Compilateur. Genere, a partir 
d'un programme ecrit en 
Pascal (.TEXT) le P-CODE 
executable par la P-MACHINE. 
II est stocke avec le suffixe 
.CODE 

Fichier des li belles d'erreurs 
de syntaxe (detectees a la 
compilation ) . 

C'est le systeme Pascal 
proprement dit, ecrit en 
Pascal. 

Interpreteur ecrit en code Z80 
dans le ca3 de cette machine. 

Fichier contenant un certain 
nombre de parametres du 
systeme (configuration 
materielle) . 



- SYSTEM. ASSMBLER 



Z 80. OPCODES 
Z80.ERR0PS 
SYSTEM. LINKER 



-SYSTEM. LIBRARY 



- SYSTEM. LIBMAP 



Assembleur natif de la 
machine, permet d'ecrire 
des programmes en langage 
machine et de produire du 
code Z80. 

Fichiers utilises par 

1' assembleur. 

codes operation & libelles 

erreurs . 

Edlteur de liens. Permet ds 

reunir des programmes Pascal 

compiles (P-CODE) et des 

programmes assembles (code 

Z80), ces derniers pouvant 

etre appeles a partir du 

Pascal . 

Bibllotheque des programmes 
compiles ou assembles, dlapo- 
nibles pour une edition de 
liens. 

Informations d' edition de 
liens pour les programmes de 
la LIBRARY. 



En fonction des besoins, le systeme cree et gere 
un certain nombre de fichiers : 



- SYSTEM. WRK. TEXT 



- SYSTEM.LST.TEXT 



- SYSTEM. SWAPDISK 



: La Eonc oil est memoriae un 
programme Pascal en cours de 
creation ou de modification 
est appelee WORKFILE (fichier 
de travail) . 
Des lors que ce fichier 
existe, 11 est automatiquenent 
transfers en memoire des que 
l'editeu- est appele. De nine, 

la compilation utilise 

SYSTEM. WRK. TEXT et le P-CODE 
genere sera stocke sur le 
fichier SYSTEM . WRK . CODE . 

: Fichier contenant le llstlr.g 
de compilation (si 1 'option 
(*$L*) a ete demandee). Le 
listing est sortl sur impri- 
mante par une commande de 
transfert sur PRINTER: du 
programme FILER . 

; Fichier utilise pour le 
stockage temporal re d'une 
zone memoire (swapping). 



Introduction a la P-MACHINE. 



La P-MACHINE utilise des mots de 16 bits. 
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Elle posaede plusieurs registres et une memoire 
utlllsateur dans laquelle sont entretenues deux 
piles (STACK et HEAP). 

Les registres sont : 

SP : Stack Pointer. Pointc our le oommet de la 

pile d' execution (STACK). Utilise pour 
passer des parametres et retourner des 
valeurs de fonctions. II constltue la 
source des operandes d'un bon nombre 
d' instructions. 



Chargeraent, rangenent d'un mot global 



mneraonique 
SLDO x 



SRO x 



code hexa 
E8 
a 
F7 

AB 



Le mot d'adresse relative x 
par rapport a (BASE) est 
range dans la STACK. 

Range le contenu de STACK 
dans le mot d'adres3e rela- 
tive x par rapport a (BASE). 



NP : New Pointer. Pointe sur le sommet de la 

pile des variables dynamlques (HEAP). La 
procedure NEW empile de nouveaux elements, 
alora que la procedure RELEASE les "depile". 

JTAB : Jump TABle pointer. Pointe sur la table 
d'attributs de la procedure courante. 

SEC : SEGment pointer. Pointe dans le dictionnal- 
re des segments, sur le segment auquel la 
procedure courante appartient. 

MP Most recent Procedure. Pointe 3ur le con- 

texte de la procedure courante. Les 
variables locales sont attelntes par 
Indexation de HP. 

BASE : BASE procedure. Pointe sur le contexte de 
la procedure de base (niveau 0). Les 
variables globales sont attelntes par 
indexation du reglstre BASE. 



Rangement Indirect d'un mot 



mneraonique 
STO 



code hexa 

9A 



Le contenu de STACK est 
range dans le mot pointe 
par (STACK-1 ). 



Exemple pratique 



Le P-CODE produit par la compilation d'un programme 
Pascal peut etre "disassemble" par un processeur 
(ecrit en Pascal) : DISASM II, fournlt sur certaines 
versions UCSD (ce n'est pas le cas de la version 
TR3) . On trouvera ci— apres un exemple de "de3aa3em- 
blage" qui permet d'entrevoir la maniere dont la 
P-Machine fonctionne. 



Instructions du P-CODE 



Nous ne les passerons pas toutes en revue (il y en 
a 256, dont la llste est donnee plus loin). Nous 
citerons siraplement : 

- les Instructions de rangement ou de chargeraent 
(rnnstantes, variables locales ou globales - 
entlers, reels, tableaux, etc — ) 

- lea instructions d' allocation, de liberation 
d'espace memoire pour les variables dynamlques 
(gestlon du HEAP) . 

- les Instructions arlthmetiques et logiques (dont 
les operandes et le reaultat sont dans la STACK). 



Programme Pascal 



PROGRAM TRUC ; 
VAR I : INTEGER 

FIN : BOOLEAN 
CHAINE : STRING 
BEGIN 

I ::0 ; 

FIN := FALSE ; 

REPEAT 

I := I + I ; 
WRITELN ('DEMO') 
UNTIL FIN FIN etant faux, le 

END. programme boucle 



CONCLUSION 



declarations I : entler 
FIN : booleen 
CHAINE : chaine car. 

Initialise I a 

le booleen FIN est faux 



- les instructions specif lques aux variables 
entierea et reellea, aux chainea, aux tableaux, 
aux 'records", aux ensembles ... 

- les instructions de saut conditionnel ou in- 
conditionnel. 

- les instructions d'appel et de retour de proce- 
dures. 



Comme nous avons pu le voir, la P-MACHINE n'est pas 
aussl simple que cela et e'est tant raieux si le 
systems Pascal ncus epargne d'y aller voir trop 
souvent ! 

Ceci est d'autant plus vrai que le systeme UCSD 
livre sur le modele 1 n'a rien a envier aux systemes 
livres sur d'autres micro ou mini-ordinateurs. 



Exemples d ' instructions : 
Ctiargecncnl u'une uunstdiite (10 bita) 



mnemonique code hexa 

SLDC Le code operation lui-meme 

a (0 a 127) avec octet de 

7F poids fort a zero est range 



La seu le limitation provient d'une part, de la 

taille memoire disponlble (raison probable de 

1 'absence du DISASM II), d 'autre part de la capa- 

cite des disquettes 5 pouces. 

Par contre, les options standards sont presentes tant 

au niveau de 1' edition qu'a ceux de la compilation 

ou de 1' edition de liens. 



dans la STACK (PUSH). 



Henri Frere 
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Desassemblage 

du 

programme «TRUC» 



Desassemblage 



Adresse 
proaramme 
rel at ive 



P-code 
en 
hexa 



Mnemon i que 
P-code 



Commenta i re 
(la P-machine utilise 
mots de 16 bits) 



des 



000 
002 
003 



005 
006 

008 

009 
00A 

00B 

00D 
010 



012 

016 

017 



01A 

01C 
01F 

022 
024 

025 
027 



D507 

00 

AB03 



00 
AB04 

EA 

01 
82 

AB03 

B60103 
A62A 



00 
CD0013 



7E00 

B60103 
CD0016 

9E00 
EB 

A1F6 

C100 



BPT 7 
SLDC 
SRO 3 



SLDC 
SRO 4 

SLDO 3 

SLDC 1 
ADI 

SRO 3 



LOD 

LSA 



'DEMO' 
SLDC 10 



Halt condi t ionnel (pour DEBUG) 

Push de 0000 — > STACK 

Pop du STACK dans le mot 

d' adresse relative 3 de la 

zone de donnee (initialisation 

uar iabl e I ) . 

Push 0000 --> STACK 

Initialisation de la variable 

TIN (0 = FALSE) . 

Push du mot d'ad. rel. 3 dans 

STACK (variable I) . 

Push 0001 — > STACK 

Addition de (STACK) avec 

(STACK-1); resultat dans STACK 

Ransement de la nouvelle 

valeur de I 

SauveSarde 

L' adresse de 1' octet suivant 

donnant la lonsueur de la 

chaine --> STACK 



0000 — > STACK 

Appel de la procedure 
d' i ni t ial i sat i on de 
1 ' entree/sort ie (E/S) 
Controle de l'E/S 
EXIT si erreur) 
1 3 SauveSarde 
WRITELN Appel de la procedure 

d' aff ichaSe 
IOCHECK 
4 Le mot d'adr rel 4 — > STACK 
(variable FIN) 
FJP 8 Jump si (STACK)=FAUX ? a 1' ins- 
truction d'adr rel. 8 
RBP Retour a la procedure de BASE 



CXP WRITESTR 



CSP IOCHECK 



LOD 
CXP 

CSP 
SLDO 
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Les codes d'instructions 
de la P-machine 



000 00 


SLDC 










1 001 01 

• • • 


SLDC 1 

■ • 










• • ■ 

126 176 7E 


• • 

SLDC 126 










127 177 7F 


SLX 127 










128 200 80 


ABI 


171 253 AB 


SRO 


214 326 D6 


XIT 


129 201 81 


ABR 


172 254 AC 


XJP 


215 327 D7 


NOP 


130 202 82 


ADI 


173 255 AD 


RNP 


216 330 D8 


SLDL 1 


131 203 83 


ADR 


174 256 AE 


CIP 


217 331 D9 


SLDL 2 


132 204 84 


AND 


175 257 AF 


EQU 


218 332 DA 


SLDL 3 


133 205 85 


DIF 


176 260 BO 


GEQ 


219 333 DB 


SLDL 4 


134 206 86 


DVI 


177 261 B1 


GRT 


220 334 DC 


SLDL 5 


135 207 87 


DVR 


178 262 B2 


LDA 


221 335 DD 


SLDL 6 


136 210 88 


CHK 


179 263 B3 


LDC 


222 336 DE 


SLDL 7 


137 211 89 


FLO 


180 264 B4 


LEQ 


223 337 DF 


SLDL 8 


138 212 8A 


FLT 


181 265 B5 


LES 


224 340 EO 


SLX 9 


139 213 8B 


INN 


182 266 B6 


LOD 


225 341 E1 


SLDL 10 


140 214 8C 


INT 


183 267 B7 


NEQ 


226 342 E2 


SLX 11 


141 215 8D 


IOR 


184 270 B8 


STR 


227 343 E3 


SLDL 12 


142 216 8E 


MOD 


185 271 B9 


UJP 


228 344 E4 


SLX 13 


143 217 8F 


MPI 


186 272 BA 


LDP 


229 345 E5 


SLX 14 


144 220 90 


MPR 


187 273 BB 


STP 


230 346 E6 


SLX 15 


145 221 91 


NGI 


188 274 BC 


LDM 


231 347 E7 


SLX 16 


146 222 92 


NCR 


189 275 BD 


SIM 


232 350 E8 


SLX 1 


147 223 93 


NOT 


190 276 BE 


LDB 


233 351 E9 


SLX 2 


148 224 94 


SRS 


191 277 BF 


STB 


234 352 EA 


SLX 3 


149 225 95 


SBI 


192 300 CO 


IXP 


235 353 EB 


SLX 4 


150 226 96 


SBR 


193 301 C1 


RBP 


236 354 EC 


SLX 5 


151 227 97 


SGS 


194 302 C2 


CBP 


237 355 ED 


SLX 6 


152 230 98 


SQI 


195 303 C3 


EQU I 


238 356 EE 


SLX 7 


153 231 99 


SQR 


196 304 C4 


GEQI 


239 357 EF 


SLX 8 


154 232 9A 


STO 


197 305 C5 


GRTI 


240 360 FO 


SLX 9 


155 233 9B 


IXS 


198 306 C6 


LLA 


241 361 F1 


SLX 10 


156 234 9C 


UNI 


199 307 C7 


LXI 


242 362 F2 


SLX 11 


157 235 9D 




200 310 C8 


LEQI 


243 363 F3 


SLX 12 


158 236 9E 


CSP 


201 311 C9 


LESI 


24i| 36H F4 


SLX 13 


159 237 9F 


LDCN 


202 312 CA 


LDL 


245 365 F5 


SLX 14 


160 240 AO 


ADJ 


203 313 CB 


NEQI 


246 366 F6 


SLX 15 


161 241 A1 


FJP 


204 314 CC 


STL 


247 367 F7 


SLX 16 


162 242 A2 


INC 


205 315 CD 


CXP 


248 370 F8 


SIND 


163 243 A3 


IND 


206 316 CE 


CLP 


249 371 F9 


SIND 1 


164 244 AH 


IXA 


207 317 CF 


CGP 


250 372 FA 


SIND 2 


165 245 A5 


LAO 


208 320 DO 


LPA 


251 373 FB 


SIND 3 


166 246 A6 


LSA 


209 321 D1 




252 374 FC 


SIND 4 


167 247 A7 




210 322 D2 




253 375 FD 


SIND 5 


168 250 A6 


MOV 


211 323 D3 


EFJ 


254 376 FE 


SIND 6 


169 251 A9 


LDO 


212 324 D4 


NFJ 


255 377 FF 


SIND 7 


170 252 AA 


SAS 


213 325 D5 


BPT 
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Pour mieux choisir 

"votre" ordinateur 

et pour mieux I'utiliser. 




«sS^ 






«-SS" 




IH LQRDINATEUR 
11— lj IIMDI VIDUEL 

Vous y trouverez : 

L'actualite et les tendances de I'informatique individuelle • des galops et des bancs 
d'essai des principaux materiels • des panoramas et des tests comparatifs • le point 
des grandes manifestations internationales • des articles d'initiation • des syntheses 
• des programmes • des interviews "exemplaires" • des conseils • des idees 

• des astuces. 

I'l L ORDINATEUR 
11— I J IIMDIVOUEL 

chez votre marchand de journaux 

41 rue de la Grange aux Belles - 75010 Paris 



pratique. 



Un programme 
de gestion de donnees 




Au fait, dans quel nume'ro se trouvait done cet 
article qui parle des roethodes de tri ? Voila une 
question que vous ne vcus poserez plus si vous 
posaedez une disquette et si vous docuraentez 
regulierement votre fichier des articles, a l'aide 
du programme ci-dessous. 

Evidemoent, rien ne vous empeche (au contraire !) de 
trouver beaucoup d'autres utilisations a ce prog- 
ramme, en lui apportant quelques adaptations suivant 
votre domaine d'application: gestion d'un catalogue 
quelconque, gestion de toute forme de reference 
blbliographique, etc. 

Nous vous proposons de commencer DES AUJOURD'HUI 
avec le numero 1 de cette revue, en vous aidant 
de la llste des mots-cles donnee en derniere 

page. 



NonJW 






noh^Cz; rtcic-$C2,i) 






J6U 



QASfC 



TR2.I 



mtrkodt 



rur 



aflsit 



T*« 



I Oft i(j«t de. tZt ocret"* 



ficUit-r d*s 
art, cits 




FicUUr 
i n verjei 



Organisation du fichier des articles 



Si une simple liste des articles regroupes par 
mots-cles vous suffit, le programme se reduit aux 
instructions 10-890 et 2620-32H0. 

Pour utiliser au mieux l'espace dlsque, nous avons 
prevu 2 enregistrementa logiques de 128 octets sur 
chaque enregistrement physique (256 octets), ce qui 
complique sensiblement la programraation . 



Les zones des enreglstrements sont ici definies 
(dans FIELDS ) comme des elements de table de 
dimension 2 (ex : N0M$(1) et N0M$(2)). 



Ces zones pourraient aussi etre definies comme de 
simples variables en executant 1 • instruction FIELD 
avant chaque accea diaque, lea variables etant 
positlonnees sur la premiere ou la seconde moitie 
de l'enregistrenent physique de 256 octets, ma is 
j'ai prefere la solution exposee let. 



Recherche par mots-cles 



La recherche par raot-cle en "balayant" 
3equentiellement le fichier des articles ne 
pourrait pas s'effectuer en raolns d'une minute 
pour un fichier de 100 articles et avec une 
methode classique. 



58 
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20 
25 
3D 
40 

50 
60 
70 

30 

90 

100 
110 



Nous avons done associe au fichier des articles 
de la Uste des mots-cles telle qu'elle est donnee 
a la page 5. Vous pourrez alnsl vous constltuet* pre— 
gressivement et sans effort une petite banque de 
donnees bibliographiques qui sera toujours a jour. 



Utilisation pratique 



Le moyen le plus efficace sera d'utillser le 
programme . . . Dials void quelques renselgnements 



Exeraple : tous lea articles traltant du BASIC. 

- recherche resultant de 1' union entre deux (ou 
plusleurs) mots-cles (commande Oil). Exeraple : 
articles parlant de BASIC ou de COBOL. 

- recherche resultant d'une intersection entre 
deux (ou plusieurs) mots-cles (commande ET ) . 
Exeraple : articles traltant de JEUX et de BASIC. 

Le fichier peut etre liste sur l'icran (commande 
LF) ou sur l'lmprimante (LFT). Dans ce dernier cas, 
le fichier est trie alphabetiqueraent . De meme, les 
mots-cles peuvent etre afflches par la commande MC. 




II est evidemment possible de supprlmer un article 
(devenu desuet ou errone ) par la commande SU. Dans 
ce cas la, de meme qu'a la suite d'une destruction 
accidentelle de 1 'index, 11 est necessalre 
d'employer la commande CRI (creation liste inverse). 
Enfin, pour quitter le programme, on utilise la 
commande FIN, qui devient obligatotre en cas de 
creation. 



Jacques Bolsgontler 



coraplementalres. Les articles sont entres en 
selectlonnant la commande C (creation). Le nora de 
l'jrticle, celul de la revue, le numero de page 
sont auccesslveroent lntrodults. On associe alors a 
chaque article de un a quatre mots-cles signiflca- 
tlfs, par exemple : BASIC, JEUX, TECHNIQUE etc... 

Pour aauter a l'etape suivante, 11 vous suffit de 
taper sur la touche "Enter". 

La rechercne d'un article peut s'efl'ectuer selon 
dlfferents moyens : 

- recherche connaissant une cle (commande RCLE). 

CLStPRINT "ART/BAS 3 1 . 10 . 81" : PRINT 
CLEAR<3000) 

GESTI0N D' ARTICLES 



2 ARTICLES PAR ENREGISTREMENT DE 256 CARACTERES (on se limite a 200 er 
resistrements > so it : 200*2 = 400 articles) 
70 MOTS-CLES dlfferents 

NMCLES=4 ' Nombre de MOTS CLES par article 

C0M*( l) = "M0T-CLEl":C0M$(2) = "MOT-Cl.E2":C0M$(3) = "M0T-CLE3":C0M$i4) = "M0T-CLE< 



120 
130 
HO 
150 
160 
170 
175 
180 
190 

200 

210 
215 



DIM PT$( 120) ?CLE*(70) 

DIM T%(2>120) 

DIM X*<200) 

DIM TCLE*(400) >IX%(40n^ 

OPEN "R"7#1;"ART" 



Fichier principal 



FOR J=l TO 2 

FIELD #1j128*(J-1) AS D$i35 AS N0M$(J)?10 AS RV*<-J)j6 AS NM$(J)i3 AS PG? 
(J) 

FOR 1 = 1 TO NMCLES:FIELD #1 7 128* ( J- 1 ) AS D$?60 AS D*?(I-1)*12 AS D$; 
12 AS MCLE$( J iDSNEXT I 
NEXT J 
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220 
230 
240 
250 
255 
260 
270 
290 
300 
310 
320 
330 
340 
350 
360 
365 
367 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
465 
470 
480 
490 
500 
510 
520 
525 
530 

540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 



OPEN "R 
FOR 1=1 



7#27 

TO 1 



'I ART" Fichier listes inverses 

10 :FIELD #2;12 AS PX$ ? ( 1-1 > *2AS D*>2 AS PT$(I):NEXT I 



GOSUB 1140 
CLS:PRINT " 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



TAB( 10) 
TAB(IO) 
TAB( 10) 
TAB( 10) 
TAB( 10) 
TAB( 10) 
TAB(IO) 
TAB( 10) 
TAB( 10) 
TAB( 10) 



"C 

"RCLE 

"ET 

"OU 

"CRI 

"LF 

"SU 

"LFT 

"FIN 

"MC 



' Appel lecture mots-cles 
GESTION D' ARTICLES":PRINT 

CREATION 

RECHERCHE PAR CLE 

RECHERCHE 'ET J 

RECHERCHE ' OU 1 

CREATION LISTE INVERSE" 

LISTE DU FICHIER (ECPAN) " 

SUPPRESSION ARTICLE" 

LISTE TRIEE FICHIER « I MPR IMANTE ) " 

(OBLIGATOIRE 31 CREATION) 

AFFICHAGE MOTS-CLES (ECRAN)" 



PRINT : INPUT "MODE? « C ? CR I ? RCLE ? LF 
IF MODE$="C" THEN GOSUB 510 
MODE$="CRI" THEN GOSUB 760 
MODE$="RCLE" THEN GOSUB 1250 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



MODE$="ET" 
MODE$="OU" 
MODE$="LF" 
MODE$="SU" 



THEN GOSUB 1°40 

THEN GOSUB 2070 

THEN GOSUB 2640 

THEN GOSUB 2750 
MODE$="LFT" THEN GOSUB 3000 
MODE$="MC" THEN GOSUB 1140 
MODE$="FIN" THEN CLOSE Ml? #2: CUD "S" 



FIN?.. )";MODE* 

Creat i on 
'Creation lists 
' Recherche pour 
' Mode ET 



i n ■■ ' erse 
un MOT-CLE 



TERM I ME 



GOTO 260 



PRINT:PRINT:LINE INPUT "LIBELLE ARTICLE 
NE=L0F(1):IF NE=0 THEN NE=1 
1 -- recherche position libre 
GET #l7NE:F0R 1=1 TO 2 

IF ASC(NOM$( I ) )=0 THEN PST=I:GOT0 570 
NEXT I 

NE=LOF(l)+l:PST=l:GET #1 ? NE 
LSET NOM*(PST)=X$ 



CPEATION(C) 

X$: IF X$ = "" THEN RETURN 



LINE INPUT 
LINE INPUT 
LINE INPUT 



"NOM REVUE 

"NUMERO 

"PAGE 



;X$: IF 


X$<>"" 


THEN 


LSET 


RV*(PST)=X$ 


;X$:IF 


X$<>"" 


THEN 


LSET 


NM$(PST)=X$ 


;X$: IF 


X$<>"" 


THEN 


LSET 


PG$(PST)=X$ 



PRINT 

FOR K=l TO NMCLES 

Y$="":PRINT COM«(K) ; :INPUT Y$ 

IF Y$<>"" THEN LSET MCLE$ ( PST ? K ) =Y$ 
NEXT K 

R*="":PRINT:INPUT "OK (0/N) ";R$:IF R$<>"0" THEN 510 
PUT#1 7 NE 

GOSUB 920 ' Appel MAJ listes inverses 

GOTO 510 
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740 '================================================================== 

750 ' CONSTITUTION LISTE INVERSE(CRI) 

760 CL0SE#2:KILL "IART":OPEN "R ", #2 , " I ART " 

770 FOR 1=1 TO 70:CLEJ( I)="":NEXT l:NB=0 

780 FOR NE=1 TO LOF (1) 

790 PST=i:GOSUB 920 

800 PST=2:G0SUB 920 ' Appel MAJ listes inuerses 

810 NEXT NE 

820 CLOSE #2:0PEN "R " i #2 7 " IART" 

830 RETURN 

840 

850 

900 

910 ' MAJ LISTE INVERSE 

920 GET #17NE:IF ASC ( NOM$ < PST ) > =0 GOTO 1110 

930 PRINT:PRINT NE;LEFT$(N0M$(PST) ? 12) ?": " ; 

940 

950 FOR V=l TO NMCLES 

960 IF ASC(MCLE$(PST7V) )=0 GOTO 1100 

970 PRINT MCLE$<PST7V) ; 

980 FOR K=l TO 70 ' Recherche MOT-CLE 

990 IF CLE$(K)="" THEN CLE$ ( K ) =MCLE$ < PST 7 V ) :NB=NB+1 : GOTO 1050 

1000 IF MCLE$(PST»V>=CLE*(K> THEN GOTO 1050 

1010 NEXT K 

1020 ' 

1030 PRINT"AUGMENTEZ LA TAILLE DE CLE$":STOP 

1040 ' 

1050 GET #2?K 

1D60 FOR 1 = 1 TO 120 ' AJout d'ur. pointeur 

1070 IF CVI(PT$(I))=0 THEN LSET PT$ ( I ) = MK 1$ ( NE+1000* ( PST- 1 ) ) : 

LSET PX$=CLE$(K) :PUT #2 ? K:G0T0 1100 ' Pointeur libre? 

1080 NEXT I 

1090 PRINT"Y'A PLUS ASSEZ DE PLACE POUR LES POINTEURS " : STOP 

1100 NEXT V 

1110 RETURN 

1120 ' ================================================================= 

1130 ' CONSTITUTION DE LA TABLE CLE$ 

1140 NB=0 ' NB«nombre de cles 

1150 CLS:PRINT "MOTS-CLE : " : PR INT 

1160 FOR 1=1 TO LOF (2) 

1170 GET #2 7 I : IF ASC(PX$)=0 GOTO 1200 

1180 PRINT PX$; :NB=NB+l:CLE$(NB)=PX$ 

1190 IF (I-5*INT( 1/5) )=0 THEN PRINT 

1200 NEXT I 

1210 PRINTLINE INPUT "APPUYEZ SUR <ENTER> ";X$:PRINT 

1220 RETURN 

1230 ' ================================================================== 

1240 ' INTERROGATION PAR MOT-CLE ! R CLE ) 

1250 PRINT:X$="":INPUT "MOT-CLE CHERCHE ";X$:IF X$="" THEN RETURN 

1260 ' 

1270 FOR 1=1 TO NB 

1280 IF X$=LEFT$(CLE*( I) 7LEN(X*) ) THEN GOTO 1330 

1290 NEXT I 

1300 ' 

1310 PRINT "CE MOT-CLE N'EXISTE PAS":PRINT : GOTO 1250 

1320 ' 
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RECHERCHE POINTEURS POUR UN CRITERE 



1330 GET #2?I:PRINT 

1340 ' 

1350 FOR K=l TO 120 

1360 NE=CVI(PT$(K)):IF NE=0 THEN GOTO 140D 

1370 Q=INT(NE/1000) : NE=NE-Q*1000 : PST=Q+1 

1380 GET #1;NE 

1390 PRINT NOM$(PST) ;RV$(PST);NM*(PST) ;" ";PG*(PST) 

1400 NEXT K 

1410 GOTO 1250 

1420 

1560 

1570 

1580 

1590 

1600 

1610 PRINT :X$ = "":INPUT "AUTRE MOT-CLE CHERCHE " " X * : I F X$="" THEN VLD=2:RETUR 

N 

1620 CC*(P)=X*:P=P+1 

1630 ' 

1640 FOR 1=1 TO NB 

1650 IF X$=LEFT$(CLE$(I) 7LEN(X$) ) THEN 1700 

1660 NEXT I 

1670 ' 

1680 PRINT "CE MOT-CLE N'EXISTE PAS": PR INT : VLD = 2 :RETURN : GOTO 1610 

1690 ' 

1700 ' 

1710 GET #2? I 

1720 ' 

1730 FOR K=l TO 120 

1740 NE=CUI(PT*(K) ) :IF NE=0 THEN 1% ( V ? K ) =9999 : GOTO 1780 

1750 T%(V>K)=NE 

1760 NEXT K 

1770 ' TRI DE TVS(Vj) 

1780 INV=0 

1790 FOR 1 = 1 TO KM 

1800 IF TX(ViI)>TX(V;I+l) THEN X=TX(V;I): 

TX(V»I)=TX(V;I+1) :T%(V?I+1)=X: INV=1 

1810 NEXT I 

1820 IF INV=1 THEN GOTO 1780 

1825 VLD=1 '.RETURN 

1830 ' 

1840 ' INTERSECTION DE 2 LISTES 

1850 I=l:J=l:K=l 

1860 ' Le result*! est ranse DANS TX(V>) 

1870 IF T%(V:I)=9999 THEN TX ( V 7 K )=9999 : RETURN 

1880 IF TX(ViIXTZ(U>J) THEN I-I + HGOTO 1870 

1890 IF TX(V7l)>TX(W7J) THEN J=J+l:GOTO 1870 

1900 IF TX(V7l )=TX(W?J ) THEN TX ( V 7 K ) =TX ( V ? I ) : I = 1 + 1 : J = J + 1 : K = K + 1 : GOTO 1870 

1910 STOP 

1920 ================================================================= 

1930 ' RECHERCHE DU TYPE 'ET' 

1940 FOR 1=1 TO 5:CC$(I)="":NEXT I : P=l 

1950 PRINT:X$="":INPUT "PREMIER MOT CLE CHERCHE ";X$:IF X$="" THEN RETURN 

1960 CC$(P)=X$:P=P+1 

1970 V=l:GOSUB 1640:0N VLD GOTO 1990? 1980 ' AppeI premier MOT-CLE 

1980 RETURN 
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1990 V=2:G0SUB 1610:0N VLD GOTO 2010,2000 ' Appel second MOT-CLE 

2000 GOTO 1940 

2010 V=l:W=2:G0SUB 1850 ' Appel intersection 

2020 0P*(P-2>="* " 

2030 GOSUB 2500 

2040 GOTO 1990 ' Appel edition 

2050 '=============================================================== 

2060 ' RECHERCHE DU TYPE 'OU' 

2070 FOR 1=1 TO 5 : CC$ ( I ) = " " : NEXT I : P=l 

2080 PRINT: INPUT "PREMIER MOT-CLE CHERCHE ";X$:IF X$ = "" THEN RETURN 

2090 CC$(P)=X$:P=P+1 

2100 V=l:G0SUB 1640 :0N VLD GOTO 212072110 ' Appel premier MOT-CLE 

2110 RETURN 

2120 V=2:G0SUB 1610:0N VLD GOTO 2140;2130 ' Appel second MOT-CLE 

2130 GOTO 2070 

2140 V=l:W=2:G0SUB 2360 ' Appel fusion 

2150 0P$(P-2)="+ " 

2160 GOSUB 2500 ' Appel edition 

2170 GOTO 2120 

2180 

2190 

2330 

2340 

2350 ' FUSION DE 2 LISTES 

2360 1 = 1 : J = l :K = 1 

2370 ' 

2380 IF TX(V>I)=9999 AND TX < U > J > =9999 THEN XX(K)=9999 :G0T0 2430 

2390 IF TX(V»IXT%(WiJ) THEN XX ( K ) =TX ( V ? I ) : 1 = 1 + 1 :K=K+1 :GOTO 2380 

2400 IF TX(V7l)>TX(W?J) THEN XX ( K ) =TX ( W ? J ) : J=J+1 : K=K+ 1 : GOTO 2380 

2410 IF TX(V»I)=TX(W;J) THEN XX ( K ) =TX ( V i I ) : 1 = 1 + 1 J J=J + 1 : K = K + 1 : GOTO 2380 

2420 ' 

2430 FOR 1 = 1 TO 200 

2440 IF XX(I)=9999 THEN TX ( V ; I ) =XX ( I ) : GOTO 2470 

2450 TX(V7l)=XX(I) 

2460 NEXT I 

2470 RETURN 

2480 ' 

2490 ' AFFICHAGE 

2500 PRINT:PRINT 

2510 FOR 1=1 TO 5 

2520 IF CC$(I)><"" AND CC$(I+1)><"" THEN 

PRINT CC$(I ) ;0P$(I) ; :GOTO 2540 
2530 IF CC$(I)><"" THEN PRINT CC$(I); 

2540 NEXT I 

2550 PRINT:PRINT 

2560 FOR K=l TO 200 
2570 NE=TX(l7K ) :IF NE = 9999 OR NE = THEN PRINT:RETURN ELSE Q=INT ( NE/ 1000 ) :NE = I 

E-Q*1000:PST=0+1 
2580 GET #l7NE:PRINT NE 5 TAB ( 4 ) ; LEFTS ( NOM* ( PST ) , 30 ) ; RV$ ( PST ) ?NM$ ( PST ) ; PG* ( PS - 

) 

2590 NEXT K 

2600 RETURN 

2610 ' 

2620 '================================================================= 

2630 ' LISTE DU FICHIER(LF) 

2640 PRINT:FOR 1 = 1 TO LOF ( 1 ) 

TRACE N° 1 — Janvier 82 — 63 



LISTE TRIEE DU FICHIER 



2650 GET #1 7 I 

2660 FOR PST=1 TO 2 

2670 IF ASC(N0M$(PST) >=0 THEN 2690 

2680 PRINT I;TAB(4) ; LEFT$ ( N0M$ ( PST > 7 30) i MCLE* ( PST ? 1 ) 5 MCLE* ( PST ;2 ) 

2690 NEXT PST 

2700 NEXT I 

2710 PRINTLINE INPUT "APPUYEZ SUR <ENTER> ";X* 

2720 RETURN 

2740 ' MODE SUPPRESSION(SU) 

2750 PRINT:NE=0: INPUT "QUEL ENREGISTREMENT ";NE: 
IF NE=0 THEN PRINT: 

INPUT "PENSEZ A RECREER LES LISTES INVERSES. APPUYEZ SUR <ENTER> ";X* 
sRETURN 

2760 INPUT "QUELLE POSITION (1 OU 2) ";PST 

2770 GET #1 ? NE 

2780 GET #l7NE:PRINT NOM* < PST );: R*=" ": INPUT " ANNULE OK (0/N) ";R$: 

IF R*<>"0" THEN 2750 

2790 LSET N0M$ ( PST ) =CHR$ ( ) : PUT #1>NE 

2800 GOTO 2750 

2810 ' =============================================================== 

2820 
2830 
2970 
2980 

2985 

2990 

3000 NCL=0 ' NCL:N0MBRE DE CLES 

3010 FOR NE=1 TO LOF(l) 

3020 GET #l7NE 

3030 FOR PST=1 TO 2 

3040 IF ASC(N0M$(PST) )=0 THEN 3080 

3050 FOR C=l TO 4 

3060 IF ASC(MCLE*(PST7C) )<>0 THEN NCL=NCL+l: 

TCLE$(NCL)=MCLE$(PST7C) : I X% ( NCL ) =NE + PST* 1000 : PR INT T CLE* (NCL) 7NE 
7PST 

3070 NEXT C 

3080 NEXT PST 

3090 NEXT NE 

3100 ' TRI BUBBLE (A REMPLACER PAR QUICK SORT OU SHELL-METZNER ) 

3105 PRINTJPRINT "JE TRIE ":PRINT 

3110 FOR 1=1 TO NCL-1 

3120 FOR J=I+1 TO NCL 

3130 IF TCLE*(I)>TCLE$(J) THEN X*=TCLE* (I > : TCLE$ ( I ) =TCLE$ < J ) : TCLE* ( J ) =X$ : 

X=IX%(I):IXX(I)=IX%(J):IX%(J)=X 

3140 NEXT J 

3150 NEXT I 

3160 ' IMPRESSIONS 

3170 LPRINTrLPRINT "LISTE DES ARTICLES TRIES ":LPRINT 

3180 FOR 1=1 TO NCL 

3190 IF TCLE$(I )<>TCLE*(I-1) THEN LPRINT rLPRINT TCLE$(I);" :" 

3200 Q=INT(IXX( D/1000) :NE=I X% ( I ) -Q*1000 : PST=Q 

3210 GET #1>NE 

3220 LPRINT TAB(5) ;N0M$(PST) ;RV$<PST) ;NM$<PST) ? "PAGE :"• PG$ ( PST ) 

3230 NEXT I 

3240 RETURN 
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le DOS de A a Z 



APPEND 



ATTRIB 



AUTO 



APPEND - ATTRIB - AUTO 



Le Modele 1 posseds plusleurs Systemes d" Exploitation 
des Uisquettes (SED, ou DOS en anglais). Ces diffe- 
rents systemes ont beaucoup de points communs , 
particullerement csux de la "llgnee" TRSDOS- 
NEWD0S-NEWD0S80-LDDS, qui s'inspirent tous, a 
quelquea details prea, du TRSDOS de Tandy (version 
lnitiale 2.1). Nous publlerons regulierement sous 
forme de flches pratiques, les commandes de ces 
differents DOS, classees alphabetiquement . Ces 
fiches ne pretendent fas reuiplacer- les manuels 
originaux qu'il es; iraperatif de posseder (11 
n'etait pas envisa^eab'le de publier sous cette forme 
1 'equivalent de plusleurs centaines de pages ...). 

Leur but est de fournlr a 1 'utlli3ateur une 
information rapide d'acces (classemerx alphabetique ) , 
pratique (exemples d 'utilisation ) , comparative 
(differents DOS) et dans une langue qu'il est cense 
connaitre (francals) . . . 

^es DOS les plus repandus ont ete retenus pour 
constituer ces flches. Ce sont le TRSDOS version 2.3 
de Tandy, le NEWDOS80 version 2 d'Apparat et le 
LDOS version 5.0 de Lobo Drives International . En 
regie generale, nous nous baserons sur les commandes 
Uu TRSDOS, en slgnalant les differences ou les 
apports rencontres dans les autres systemes 
d' exploitation. 



Conventions d'ecriture 



Dans la description dw commanded, les mots en 
caracteres majuscules designent les commandes 
proprement dites, ainsi que les mots-cles assocles. 
Les mots en caracteres minuscules ne font pas partie 
des commandes ma is en representent la forme. Au 
noment de 1 'execution, il faudra leur substituer 
ie OU les mots appr.oprles. Parmi ceux-ci , nous 
trouverons par exenple : "nomfich", qui deslgne 
on non da fichier, "motpasse" qui si^iifle qu'un 
not de passe (password) est attendu a cet endrolt. 
Dans tous les cas, un coup d'oell sur les exemples 
donnes devrait lever toute ambiguite. 
Enfln, 11 faut sigr.aler que le NEWDOS80 emploie 
indlfreremment la virgule ou l'espace comme 
3eparateur dans les commandes. 



APPEND nomfich2 TO nomfich 1 



But : Les deux fichiers nomfich 1 et nomfich 2 
existant independamment sur le disque sous forme 
ASCII, a 1' execution de la coramande, lc contenu 
de nomfich Z sera ajoute a la fin de nomfich 1 pour 
ne former qu'un seul ftchier nomfich 1. Nota : 
nomfich2 n'est pas detruit. 



Exemple : TRSDOS 
Exemple NEWD0S80 



APPEND SUIT/BAS TO TETE/BAS 
APPEND, DA TA2/TXT, DATA I /TXT 



(dans ce dernier cas, le "TO" est facultatir). 
LDOS conserve la syntaxe de TESDOS, ma is il est 
possible de substituer a norafich2 un organe 
physique d'entree produisant du code ASCII, par 
exemple le clavier) : 

APPEND »KI TO INFO 

Les caracteres entres au clavier seront places sur 
le disque, i la suite du fichier INFO, Jusqu'a 
l'appui sur la touche BREAK. 



ATTRIB nomfich (liste d'attributs) 



attrlbuts : I invisibilite 

ACC=motpasse d'acces 
UPD=motpssse mise a jour 
PR0T=nlveau protection 



niveaux protection : KILL (faible) 
RENAME 
WRITE 
READ 
EXEC (fort) 



But : donner a un fichier s 
d ' invisibilite ou de protec 
est rendu invisible, il n'a 
commande DIRectory, sauf si 
specif ie dans celle-ci. Lor 
un attribut de protection, 
1 'utilisateur de fournlr un 
acceder a certaines operatl 
d'acces) determinees par le 
Un second mot de panoc (mi3 

fournisseur Ju programme d' 
maiides sur ce fichier. 



ur disque. un attribut 
tlon. Lorsqu'un flcnier 
pparait plus lors d'une 

le parametre T est 
aqu'vitl fichier possede 
il eat necessaire a 

mot de passe pour 
ona (mot de passe 

ni/eau de protection, 
a Jour ) permet au 

user de toutea lea con- 



Exemple : 

ATTRIB COFFRE ( ACC=CL1C, UPD=HUM.PROT=WRITE I 

Pour acceder h or firhior, 1 'utilisateur devra 
desormais employer le nora : COFFRE .CI.IC, ce qui lul 
donnera seulement le droit d'cxecuter (EXEC), de 
lire (READ) ou d'ecrire (WRITE). Par contrr, le nom 
COFFRE. HUM permet d'executer toute autre operation 
(icl, renommer ou detruire un fichier). 

- En TRSDOS, un fichier rendu invisible ne peut plus 
retourner a l'etat visible comme cela est possible 
sur LDOS et NEWD0S80. De plus, le niveau de protec- 
tion EXEC ne s'applique qu'aux programmes hinalres 
(nomf ich/CMDi , car en BASIC, aucune operation n'est 
possible sur un fichier ainsi protege. 

- Pour NEWDOS80, la touche BREAK est inhlbee dans 
le cas de EXEC, et le fichier re peut qu'etre lance 
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par la comraande RUN. De plus, ce DOS apporte quatre 
attrlbuts supplementaires : VIS (pour rendre un 
fichier visible, INV pour le rendre Invisible), 
ASE=, ASC= et UDF. Ces trois derniers attributs 
ne peuvent recevoir que les valeura Y (oui) ou N 
(non). Pour ASE=Y, le DOS accepte d'etendre la 
taille du fichier lorsque cela s'avere necessaire . 
Inveraement , pour ASC=Y, la taille peut etre 
compressee. Si UDF=Y, un indicateur de raise a jour 
apparaitra dans la directory, pour toute modifica- 
tion du fichier. Nous trouvons egalement deux 
niveaux de protection supplementaires : LOCK (aucun 
acces n'est autorlse, excepte par le DOS lui-meme), 
et POLL (toutes operations autorisees). 
Exeoples : 

ATTFIB , PENDU/BAS , UPD= CLIC , ACC=CORDE , PROT= EXEC 

ATTRIB TOTO.TITI INV UDF=N 
- Er. LDOS, un fichier ayant le niveau de protection 
EXEC ne peut qu'etre lance par la commande RUN. 
Apres execution, le programme est automatiquement 
efface de la memolre. Un BREAK provoque egalement 
un effacement de la memoire. LDOS apporte un 
attrlbut de VISlbilite, et un niveau supplementaire 
de protection FULL (ou ALL) identique a celui de 
NEWDOS80. LDOS permettant 1 'abreviation des para- 
metres aux deux premiers caracteres, ceci cree un 
probleme pour REname et REad : aussi , le niveau 
de protection RENAME s'appelle ici NAME. Les 
attributs peuvent etre reduits a une seule lettre 
(I, V, P, U, A) et les niveaux d'acces a deux 
lettres (FU (ou AL) , EX, RE (read), HR, HA et KI). 
Exemple : 

ATTRIB COMPTE.MOI (PROT=RE,V) 



AUTO comma nde-d os 



But : cette commande permet d'ecrire dans un espace 
reserve du catalogue (32 caracteres max), l'ordre 
DOS qui devra etre execute a 1' initialisation du 
systeme. Loraqu'AUTO est employe seul (c'eet-a-dlre 
non auivi d'une commande), cet ordre est efface, et 
ceci supprlrae 1' execution autoraatique. 
Exenples : 

AUTO BASIC 
provoquera l'appel automatique du BASIC a la mise 
sous tension. 

Lorsque la touche ENTER est maintenue pressee au 
moment du "reset" ou de la raise sous tension, 
1 ' ordre AUTO est ignore . 

- Avec LDOS, on peut falre preceder la commande DOS 
du symbole "*" : AUTO *DIR, par exemple. Dans ce cas 
l'appui sur la touche SNTER n'aura aucun effet. De 
plus, la touche BREAK est inhibee en BASIC. Sous 
NEWD0S80, une option systeme permet d'obtenir le raeme 
effet (voir SYSTEM). Ceci permet done d'avoir des 
syatemes sur meaure et "verrouillea" . 

En LDOS ou NEWD0S80, 11 est raeme possible d'executer 
une serie d'ordres par 1 ' intermediaire de la 
commande CHAIN (ou DO) : 

AUTO CHAIN INIT 

INIT etant le nom d'un fichier de commandes. 

On peut egalement appeler directement un programme 

BASIC : 

AUTO BASIC 1, 60000, RUN"MENU/BAS 
Dans cet exemple, les evenements suivants sont 
executes en sequence : 
. Lancement du BASIC disque. 

. Reservation de 1 "buffers" permettant d'ouvrir 
simultanement 4 fichiers (reponse a "HOW MANY 
FILES?" en TRSDOS). 

. Fixation d'une zone protegee a partir de l'adresse 
60OC0 (reponse a "MEMORY SIZE" ou "MEM SIZE"). 
. Lancement du programme BASIC "MENU/BAS". 
Pour annuler cet enchainement automatique, il 
suffit de frapper au niveau DOS : 
AUTO 



le prochain numero 



[*i< 



TRACE 



sera disponible 
mi-avril 82 



pour 
mieux utiliser votre ordinateur 



abonnez-vous 



ou commandez le prochain numero 
en utilisant le bon ci-dessous 



BON DE COMMANDE 

a retourner a TRACE, 8, rue St-Marc, 
75002 PARIS 



Nom 



Profession :. 
Adresse : 



Code postal :. 
Pays : 



. Ville :_ 



□ Je ddslre recevoir le D Je desire m'abon- 



numero 2 de TRACE 
(France 25 FF ; Bel- 
glque 170FB; 
Suisse 11FS; 
Canada 6.50$: 
Etranger 30 FF). 



ner a TRACE pour 1 
an, 4 numeros, en 
benelicianl de votre 
tarif de lancement 
(France 75 FF ; Bel- 
glque 500FB; 
Suisse 33FS; 
Canada 20 % ; Etran- 
ger 90 FF). 



D Ci-joint mon reglement (indispensable). 



Imprimerie Laballery, 58500 Clamecy. lmprime en France. Directeur de la purjlicaton Jean-Pierre Nizard 
Depot legal 1* trunestre 1982. Numero de Commission paritaire: en cours 



Dossier n°17: expert-comptable 



"Avec 250 clients, 

j'etais un expert comptable aff ichant "complet" 

Le micro- ordinateur TRS-80 

m'a permis de tripler ma clientele!' 



«E tre oblige dans mon 
activite deplafonner avec 250 
clients n'est certes pas stimu- 
lant... toute volonte de deve- 
loppement etait sterile. La 
comptabilite arnene un flot 
d'obligations, de problemes 
specif iques. Les resoudre 
manuellement est pratique- 
ment irrealisable. Un nouveau 
systeme etait indispensable. 
Je I'ai trouve grace au TRS-80 
de Tandy)). 

Tandyapportaacet 
expert comptable la solution 
qui s'imposait. Un micro-ordi- 
nateur destine a tous les actes 
administratifs et comptables. 
En outre I'edition des etats 
financiers, le stockage des 
comptes a recevoir, le calcul 
des fact u res et sa la ires, la 
memorisation des fiches 
clients et les lettres commer- 
ciales. 

C'est un outil d'utilisation 
simple, parfaitement adapte 
a toutes activites person nel- 
lesou profession nelles. 

Tandy est le leader du mar- 
che de la micro-informatique. 
Nos TRS-80 forment la gamme la plus performante des micro-ordinateurs. 
lis sont rapides, fiables, et d'un prix accessible. 

Nous mettons a votre disposition un reseau de distribution qui s'etend de 
jour en jour, «couple»a une organisation mondialement reconnue. 

TRS-80, une gamme de micro-ordinateurs a partir de 4.990 f; 
TVA de 17,60% incluse. Avec un large eventail de logiciels. 

Tandu 

TRS-80 

The biggest name in little computers® 
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vitessccapacite 

et f iabilitf (Tun disque 
pourmoinsde 

2200 F t.t.c? 



n faut se rendre a Evidence. Les lecteurs de cassettes 

ont ete concus pour enregistrer nl des donnees digita- 

les, ni des programmes. C'est la raison pour laquelle 

EXATRON a developpe un systeme de stockage magne- 

tique, qui utilise une bande sans fin : rExatron Stringy 

Floppy (ESF). Entierement autonome, ne neoessitant 

l'achat d'aucun interface, ESP est une alternative extrt- 

mement rapide, Sable et economique entre les cassettes 

et les mini-disquettes. Toutes ses fonctions sont sous ;e 

controle total de votre micro-ordinateur. Aucun bouton, 

poussoir, inverseur ou levier a ajuster ou a oublier. ESF 

utilise une cartouche magnetique miniature de la taille 

approximative dune carte de credit, appelee un Wafer (voir 

illustration ci-dessous) , dont la capacite peut depasser 100 Ko. 

Son mecanisme de transport utilise un moteur a couplage direct, 

avec une seule piece en mouvement. Plusieure versions de l'ESF 

sont actuellement disponibles, pour le TRS-80*, l'Apple II *\ et les 

ordinateurs munis d'une liaison RS-232. M6me la plus lente de ces 

versions est 15 fois plus rapide que les cassettes et aussi flable que les 

disques - en fait, nombre d'utilisateurs affirment qu'elle est encore plus flable ! 

Un manuel tres explicite accompagne ce materiel garanti un an. 




TRfl-80 9t APPIJ! n sont les marques deposees respeoUves de TAHDY CORP. et APPLB 



Edition du P.S.I. 

RP:«6. 77400 LAGNV 

T*l. <6) 007 39 31 

Credit Cetelem - Carte Bleue 

Pour avoir de plus 

amples renselgnements 

sur le Stringy Floppy, 

appelez le 

2812317+ 

QolgTTlQ QP 

98, rue de St Lazare 75009 PAHIS 
Metro : St Lazare - Havre CaumarUn 



Taille reelle d'un wafer 



CRAPHIE 

Importateur exduslf FRAfMCE 

8581595+ 

Terminal 93 

Centre Commercial 93100 MONTREUIL 

Metro : Malrie de Montreuil 

AcceB direct - Parking 

Expeditions dans toute raurope 
Nous vous reservons le meiUeur accuell a nos boutiques, ouvertes sans mterruptlon du lundi au samedi de 9 h 30 a 19 h 30 



Demandez notre catalogue gratult 




